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FIELD OF INVENTION 



This invention relates to the provision of data over the 
Internet and, more particularly, to a system for ascertaining 
the demography of the users of the Internet. 



With the increased usage of the Internet comes the problem 
of deciding how and where to direct the information from the 
provider's point of view. With the advent of so-called "push" 
systems in which providers have direct access to the PC at the 
client side in a client/server application, it is increasingly 
important that the provider be provided with information so as 
to be able to direct the services to those users who are most 
likely to be interested. 

In the past, the only type of demographic information that 
was available was to "guess" the usage of the system through use 
of sampling research data. In systems in which sampling 
research data is involved, a given research company will ask a 
major provider how many pieces of software were sold to the 
various users. Based on the data of the sales of the enabling 
software, the research company, utilizing mathematical 
techniques, provides demographic information to the provider 
based on a series of assumptions about the user. 

However, the utilization of statistics alone based on the 
sales of software, for example, is not at all accurate in terms 
of providing the provider with targeted information as to the 
"real" demography of the user or client. For instance, it is 
impossible through statistics alone based on a single input such 
as sales to derive information relating to the CPU size and 
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speed at the user, hard disk space availalle, information 
relating to the network connection such as dial— up cable modem 
connection information and ISDN connections, a list of the 
inventories indicating the applications running on the 
particular computer involved, as well as peripherals such as 
sound cards connected to the computer at the client side. 
Moreover, there is no way to ascertain the log-in history for 
each of the Internet users, such that critical information for 
the providers is not existent. 

Critical information which is not available from traditional 
research is infrastructure information for a particular PC, such 
as CPU power, viewer, sound card and Internet connection 
information . 

What is meant by the term "viewer" is what type of protocol 
is being run on the machine such as MPEG, QUICKTIME, AVI, and 
PDF. 

The sum total of this infrastructure information would be 
useful for the decision maker at the provider as to decide 
whether or not, for instance, it is worth the money to make 3 
megabytes of MPEG video available for advertising based on the 
above infrastructure demography. Thus, it is impossible for 
this decision maker to ascertain whether the Internet 
advertisement delivery will be efficient and worth enough to 
justify the cost, much less, for instance, providing an Internet 
video advertisement, the cost of which must be justified by 
assuring a number of targeted viewers for the subject matter of 
the video advertisement. 

SUMMARY OF THE INVENTION 

In order to provide such needed data to a content provider 
that wants to use the Internet connection, in one embodiment, 
client software is installed at each PC which can detect the 
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infrastructure of the PC. The software which is provided by the 
provider to the user enables sensing CPU power, hard disk space, 
the applications running or installed, network connectivity and 
the log-in history. Since each client software has a unique 
serial number, sensing the serial number at the server side 
provides for rapid transfer and loading of a database with 
infrastructure data which is reported to the server 
periodically, for instance, every two seconds. At the server 
side, the database can be updated frequently to provide instant 
demographics of the particular user. It will be appreciated 
that the database can be filtered by such factors as location so 
that the provider can be apprised of what locations would be 
most interested in the content that the provider wishes to 
transmit. This permits the provider to be able to limit the 
broadcast of the data to selected locations. 

It will be noted that the client software is delivered by 
the provider to the end user. By so doing, each provider is 
apprised of its own members, thus to provide the provider with 
the demographics of its own members or subscribers. This 
enables the content providers to be able to decide the content 
size to be delivered, as well as the viewer software, and makes 
the decision as to how much and what should be provided to an 
individual user tailored to the particular user's requirements. 

For instance, in one operative embodiment, if a provider 
wants to make a two minute commercial, this can take as much 
eight megabytes to transmit. At this point, the provider must 
select what type of viewer software is required to play the 
eight megabytes of information, whether it is MPEG, QUICKTIME or 
some other format. By this manner, the provider can ascertain 
in real time whether or not the hard disk space is available at 
the user. 

The distribution curve that is generatable through the 
utilization of the subject system, permits a bell curve to be 
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formed in which hard disk space can be presented in terms of the 
number of users. Assuming that 8 megabytes is required, it can 
be determined what percentage of the channels are occupied by 
the information to be transmitted, and thus the number of PC's 
that are available to receive the intended transmission. If, 
for instance, 8 megabytes represent 80% of the channels, then 
the provider may well be advised that there is a sufficient 
number of PCs that can receive the information to commit the 
resources to providing the content and transmitting it. 

As will be appreciated, the subject system permits the 
content provider to make a decision as to whether or not to 
invest in a given project based on real-time demographics of 
users connected to the Internet. Note that in general, 
demographics are from members of the provider since the provider 
provides the client software to the end user. As a result, not 
only can content be tailored to the audience which could receive 
it, but critical decisions can be made as to whether to provide 
the content at all based on real-time sensing of the demography 
of the users. 

The result is that by use of the subject system, providers 
can make business decisions such as the size of the video 
message, the viewer of the video/audio message, and the timing 
for hyper— advertisements through pulling or pushing at 
appropriate times. The subject system also makes possible other 
decisions which are critical to the economic utilization of the 
Internet. Furthermore, the demographic information permits 
marketing decisions as to where to sell the software and 
hardware based on the infrastructure data and the destination of 
the PC, namely its IP address. 

In summary, in an Internet-based client/server application, 
a system is provided which detects demographics of a client 
including CPU power, hard disk space, applications installed, 
network connectivity and log— in history so as to provide this 
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infrastructure related information detailing client usage of the 
Internet to the service provider. In one embodiment, each user 
is provided with software having a unique serial number. Having 
the serial number, infrastructure data is checked at the client 
side and reported to the server periodically, with the server 
updating a database with the infrastructure data from each PC. 
In one embodiment, the database is filtered by factors such as 
location of the client and an indication of which providers 
delivered software to a client. After filtering, the service 
provider can obtain various demographics such as the demography 
of hard disk space, CPU power and viewers. In one embodiment, 
the demographics are used at the server to automatically select 
the contents to be transmitted to the particular client. Thus 
the provider can send the most appropriate contents to the most 
appropriate client based on demographic information of the 
client's infrastructure. 

Moreover, having derived the above demographic information, 
in one embodiment, an automatic selection system uses the 
demographics to provide specially tailored contents to the 
client. Files can thus be tailored to the client's ability to 
receive the file or even as to what content should be 
delivered. Thus whether full frame video should be sent, 
whether audio should be sent, or indeed what format is 
appropriate can be selected. 



These and other features of the subject invention will be 
better understood taken in conjunction with the Detailed 
Description in conjunction with the figures of which: 

Figure 1 is a block diagram of the subject system 
illustrating the ability to provide a database with real-time 
demographic information from the users, along with a filter 
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system to be able to tailor the demographic output to be the 
most useful to the provider; 

Figure 2 is a graph illustrating the results of the subject 
system in which hard disk space is graphed against the number of 
users ; 

Figure 3 is a bar graph illustrating CPU power as a function 
of the number of users; 

Figure 4 is a block diagram and flow chart illustrating one 
embodiment of the subject system indicating client-initiated 
data reporting based on client-installed software from the 
provider; and, 

Figure 5 is a block diagram of the use of the demographic 
information for automatic delivery selection by the server. 



Referring now to Figure 1, in the subject system, a provider 
10 provides software to each of clients 14 which causes the 
associated computer connected to the Internet to transmit not 
only a serial number, but also the IP address, CPU information, 
hard disk space, network connection, a list of inventories, 
peripherals such as sound cards, and the log-in history 
associated with each individual client. Client and server are 
connected via the Internet, here diagrammatically illustrated at 
16 . 

The information is passed to a database 18 at the provider 
which, optionally, is provided with a database filter 20 so that 
the data may be filtered as to location as illustrated at 22 or 
is further filtered by the provider as illustrated at 24. It 
will be appreciated that there are other filter functions that 
can be applied to the database for the filtering of the 
statistics garnered by the subject system. 
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If, as illustrated, the statistics come from members of the 
provider because the provider provides the client software, then 
the provider is provided with information relating to his 
members and his members alone. 

The data, when retrieved, may be in the form of a graph 26 
of hard disk space versus number of CPU's or, alternatively, can 
be provided in terms of CPU power as illustrated at 28, with the 
information being developed at the server side, here illustrated 
at 30, and with the information from the server side being 
delivered to the provider after it has been derived. 

Referring now to Figure 2, a graph is shown of hard disk 
space versus the number of users which, as will be appreciated 
is developed in a bell shaped curve 40 with one end of the curve 
illustrating the number of users having only 1 kilobyte of disk 
space and with the other end reflecting 1 gigabyte of disk 
space. As mentioned hereinbefore, it can be seen that with 8 
megabytes of information to be transmitted as illustrated by 
line 42, shaded area 46 represents approximately 80% of the 
channels and thus, in one instance, over a million PC's having 
the capability of receiving 8 megabyte transmissions. From 
this graph, a decision maker can decide that it is worth the 
time, effort and money to invest in the aforementioned two 
minute advertising sequence, with the graph giving the provider 
an instant view of his audience. 

Referring now to Figure 3, what is shown is a bar graph 50 
which charts CPU power versus number of CPU's, knowing computer 
power can lead to deductions about peripherals. For instance, 
one can deduce whether or not there is a sound card associated 
with a given PC. Thus in terms of CPU power, one can deduce if 
there is a 155 megahertz 486 processor installed, and/or if 
sound card is in existence, because such computers usually come 
with a sound card installed. This being the case, it can be 
assumed that multimedia transmissions can be handled by such 
CPU. 
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Additionally, not only will the providers be provided with 
information regarding the capability of the particular CPU to 
receive multimedia transmissions, these user's are also a very 
good target for the sales of sound cards. As a result, messages 
advertising sound cards can be sent directly only to those users 
which have sufficient CPU power. 

In general, the client software is delivered along with 
applications software by the provider and is transparent to the 
user. At the provider's election, data relating user's identity 
can be inhibited so that the system is a pure anonymous 
demographics system. The system can be made anonymous simply by 
sensing only the IP address of the user as opposed to the user's 
identity. Thus, while the user's identity remains anonymous, 
his buying habits and usage create a powerful tool to direct 
advertising and other content to the user based on his prior 
usage, the ability of a CPU to receive the intended message and 
other factors. Note, however, that providers may seek tc 
provide targeted advertisement and content to a particular user, 
assuming that the provider has the user's permission to do so. 

Referring now to Figure 4, a flow chart is presented in 
which server 2, here illustrated at 60, sends out to client 62 a 
client software package 64 which is installed as illustrated at 
66 at the client's PC. The software checks the infrastructure 
data of the client as illustrated at 68 and reports the data as 
illustrated at 70 through the Internet through server 1, here 
illustrated at 72, which updates the data to its database as 
illustrated at 74. The output of the database is filtered at 7€ 
based on functions such as provider ID or other factors. The 
filtered data is used at 78 to create a demography for the 
particular filtered factor such as hard disk space. 

As illustrated at 80, the result of the demography is 
provided to provider by sending this demography to server 6C 
such that a decision maker 82 relying on data from Server 2 car 






make the appropriate decisions as to what to send out, e.g. 4 MB 
MPEG, 300 kB PDF etc. 

Referring now to Figure 5, having derived the infrastructure 
demographies of a client's PC, it is possible to tailor the 
contents and delivery from a server to a given client in a 
so-called "push" system. First, based on log-in history, hard 
disk space and a variety of factors such as available as 
demography 100, a content provider can decide whether the 
proposed content would be suitable to the infrastructure of the 
client. Based on infrastructure information relating to actual 
use of a client's PC, including applications previously run, it 
is possible to ascertain the user's willingness or recept iveness 
to receiving the proposed content. Thus the content need only 
be pushed to users who in all likelihood would welcome receipt. 

Additionally, it is possible for the content provider to 
have several different versions of the content. One version 
might require MPEG compatibility and a sound card. Another 
version might be a reduced file size or just a document. 

As can be seen from Figure 5, an automatic delivery systen 
104 is provided which selects the destination of the contents 
based on the ability of a client to receive a given version of 
the contents. This is done by matching the requirements of the 
particular version of the contents with the demography of the 
client as shown at 106. Assuming only one version 116 of the 
contents, version requirements 117 for this version are matched 
at module 106 with the infrastructure of the clients. For those 
clients having infrastructure which can handle the particular 
version, destination selection module 110 switches version lie 
to the appropriate clients. 

Thus, upon a match, selection module 110 selects the 
destinations most appropriate for particular version of use the 
contents, at which time the version 116 is transmitted directly 
to the client's PC in a push operation as illustrated at 112. 
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The result is the receipt of a version appropriate for the 
infrastructure of the particular client as illustrated at 114. 

As mentioned above, for contents available in different 
versions, it is possible to select from different versions of 
the contents, here shown at 118 and 120, in order to match the 
pushed version to the client's infrastructure. 

Each version has a set of corresponding version requirements 
119 and 121. These version requirements are supplied to 
matching module 106 which determines not which clients can 
receive a given version, but rather which versions can be sent 
to which clients. Selection module 110 then couples the 
appropriate version to the appropriate clients in a push 
operation . 

What is now presented is a series of programs and C++ with 
the first of the programs being that which is provided to the 
client to query his particular PC and with the second program 
illustrating the retrieval of the data, the creation of the 
demography, and the transmission of the demography over the net 
to the server associated with the content provider: 
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/ / Sy s t em I nven tor; 



((include "stdafx.h" 

({include "stdlib.h" 

((include <assert.h> // JRW 

((include <f stream. h> 

//((include <shlguid.h> 
extern "C" { 

H include <winnetwk . h> 

{(include <shellapi.h> 

((include <shlobj.h> 

((include <objbase.h> 

((include < ini tguid . h> 

((include <mmsystem.h> // 
} 



¥l/^S) : iMisc^^ali^o^J^^tir^V rout^ 

^ >J p es' 




U incl ude 



rfinnl s . h" 



0? 



((include "atpattrib.h" // For GetSystemlnventory 
ftinclude "Utility. h" ■ 



({ifdef DEBUG 

({define new DEBUG NEW 

{{under THIS FILE 

static char THIS_FILE[] = FILE 

ttendif 

// Compute total free f ilespace on a drive . . . 

DWORDLONG GetFreeFilespace (const char * driveRoot Pa t h ) 
{ 

DWORDLONG EreeSpace; 

DWORD sectorsPerCluster,- 

DWORD bytesPerSector; 

DWORD number FreeClus ters ,- 

DWORD numberTotalCluster s ; 

if ( IGetDiskFreeSpace (dri veRoot Path , 

&sectorsPerCluster , &by tesPerSector , 
&numberFreeClusters, &.numberTot alClus ters ) ) 
freeSpace = DWORDLONG (- 1 ) ; 

else{ 

fraeSpace = sectorsPerCluster; 
freeSpace += bytesPerSector; 
freeSpace *= numberFreeClus ters ; 
} 

return freeSpace,- 

} 

// Get a big inventory of this system: 

// ... this is a bit of a grab-bag, but it is convenient for 
// getting all the information at once to set up to the server 



((define FANCY INVENTORY TRUE 

void GetSystemlnventory (AtpAttrib & inventory) 



CString tmp ; 
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// Amount of physical RAM . . . 
MEMORYSTATUS memoryStatus; 

memset (&memoryStatus , 0 , sizeof (memoryStatuej ) ; 
memoryStatus .dwLength = sizeof (memoryStatus) ; 
GlobalMemoryStatus (tmemoryStatus) ; 

tmp. Format ( "PhysicalRAM=\"%ld\ n " , memoryStatus . dwTot al Phys ) ; 

inventory . ParseLine (tmp) ; 

} 

// Amount of free disk temp space . . . 
{ - 

char * pathBuffer = NULL; 

DWORD bufSize = GetTempPath ( 0 , pathBuffer) + 5; 
pathBuffer = new char [buf Size] ; 
if (o == GetTempPath (buf Size , pathBuffer)) 
{ 

HACKassert ( " f ai lure on GetTempPath", FALSE) ; 

inventory . ParseLine ( "TempDirectoryFi lespace= \ " - 1\ " " ) ; 
} 

else { 

CString driveLetter (pathBuffer) ,- 

driveLetter = driveLet ter . Lef t ( 3 ) ; 

tmp . Format ( "TempDirectoryFilespace=\ " %Ld\ 11 " , 

Get FreeFilespace (driveLetter) ) ; 
inventory . ParseLine ( tmp ) ; 
} 

delete [J" pathBuffer; 
} 

// Amount of free disk space in document directory . . . 
{ 

// Note: assumes drive letter in start of string: 

// is there some system call we can use to get it from a pathname 
// without an explicit drive letter? 

CString pathName { inventory [ " IDF DIRECTORY" ] ) ; 

pathName = pathName . Lef t ( 3 ) ; 

tmp . Format { " IDF DIRECTORYFilespace=\ " %Ld\ " " , Get FreeFi lespace (pathName) ) 

inventory . ParseLine ( tmp) ; 
} 

// OS version number: 

OSVERSIONINFO osVers i on Info; // We will use this later . . . 

{ 

memset ( &os Ver s ionlnf o , 0, sizeof { osVer s ionlnf o ) ) ; 
osVersionlnf o . dwOSVer s'ionlnf oSize = sizeof (osVersionlnfo) ; 
if (0 != GetVersionEx ( fcosVersionlnf o) ) 
{ 

char * osName = NULL; 

if (osVersionlnfo . dwPlatf ormld == VER PLATFORM WIN3 2 NT ) 

osName = "WinNT" ; // WinNT Yes, Win95 No, Win32s No 

else if (osVersionlnfo . dwPlatf ormld == VER PLATFORM WIN3 2 WINDOWS ) 

osName = "Win95"; // WinNT Yes, Win95 Yes, Win32s No 

else if (osVersionlnf o . dwPlatf ormld == VER PLATFORM WIN3 2 s ) 

osName = "Win32s " ; // WinNT Yes, Win95 Yes, Win32s No 

else 

2 
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osName = "Windows (Unknown) " ; 
tmp . Format {" %s %d.%d: Build %d : %s" , 
osName , 

osVersionlnfo . dwMaj orVersion , 

osVersionlnfo . dwMinorVersion , 

osVersionlnfo . dwBuildNumber, 

osVersionlnfo . szCSDVersion) ; 
tmp = "OSVersion=" + AtpAt trib : : QuoteString { tmp) ; 
inventory. Par seLine (ttnp) ; 
} 

} 

// Is there a CD-ROM? (Return the drive letter, else empty) 
// Note: if more than one, we only count the first one. 

{ 

char driveName!] = " Z -. " ; 
tmp . Format ( "CD_ROM=\ " %s\ " " , " " ) ; 

for (driveName [0] = ' a ' ,• driveNamelO] <= ' z ' ; driveName [0] ++ ) 
{ 

if ( DRIVE CDROM == GetDriveType (driveName ) ) 

{ 

tmp . Format ( "CD_ROM=\ ■■ %s\ "" , driveName) ,• 
break ,- 
} 

} 

inventory . Par seLine (tmp) ; 
} 

// Network present, Slow machine, etc. from GetSys temMetrics . 
{ 

int value; 

value = GetSys temMetrics ( SM NETWORK) ,- 

tmp. Format ( "NetworkPresent=\ " %s\ "" , ((value & 0x01) !=0) ? "TRUE" : "FALSE" 
inventory . Par seLine (tmp) ,- 

value = GetSystemMetrics (SM_SLOWMACHINE) ,■ 

tmp . Format (" SlowMachine=\ " %s\ "" , value ? "TRUE" : "FALSE"), - 

inventory . Par seLine ( tmp ) ,- 

} 

// Stuff from SystemPararaetersInfo: Windows Plus! extensions . . . 
{ 

BOOL bS.tat = SystemParametersInf o ( S P I_GETW I NDOWS EXTENS I ON , 1, NULL, 0); 
tmp . Format ( " WindowsPLUS=\ " %s\ "" , bStat ? "TRUE" : "FALSE"), - 
inventory . ParseLine ( tmp ) ; 
} 

// Stuff from GetSystemlnf o : CPU type, etc. 
{ 

CString tmp, tmp2 ,- 
SYSTEM INFO systemlnfo; 

memset { &sys temlnf o , 0 , si zeof ( systemlnfo ) ) ; 

GetSystemlnf o ( &sys t eml nf o ) ,- // Doesn't work on Win32s. 

// wProcessorArchi tecture : 
#ifdef FANCY INVENTORY 
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(systemInfo.wProce S sorArchitecture==PROCESSOR 
tmp = " pROCESSOR_ARCHI TECTURE_INTEL " ; 
e if (systemlnfo.wProcessorArchitecture-PROCESSOR 
tmp = P ROCESSOR_ARCHITECTURE_MIPS" ; 
else if (systemlnf o . wProcessorArchitecture^PROCESSOR 
= « PROCESSOR_ARCHITECTURE_ALPHA" ; 
( S ystemInfo. W ProcessorArchitecture==PROCESSOR 
= "PROCESSOR_ARCHITECTURE_PPC" ; 

( systemlnf o . wProcessorArchitecture==PROCESSOR 
= "PROCESSOR_ARCHITECTURE_UNKNOWN" ; 



tmp 
else if 
tmp 
else if 
tmp 

elSe tmp = " PROCESSOR ARCHITECTURE_UNUNDEFINED" ; 

tmp2 .Format ("%s" , (const char *) tmp); 

tmp = " P rocessorArchitec t ure=" + AtpAt t r ib : = Quot eSt r rng ( tmp2 ) ; 
inventory . ParseLine (tmp) ; 

nd tmp2 . Format ( "%d" , systemlnf o . wProcessorArchitecture) ; 
tmp = "SYSTEM JNFO . wProcessorArchitecture= " + AtpAtt 
inventory . ParseLine ( tmp) ; 



ARCHITECTURE INTEL ) 

ARCHITECTURE MI PS ) 

ARCHITECTURE ALPHA ) 

_ARCHITECTURE_PPC) 
ARCHITECTURE UNKNOWN ) 



ib: :QuoteString (tmp2) ; 



// dwNumberOf Processors 

inventory . ParseLine ( tmp) ; 

Wend tmp . Format ( " SYSTEM INFO . dwNumberOf Processors=\ " %ld\ " " , 

systemlnf o - dwNuraberOf Processors ) ; 
inventory. ParseLine ( tmp) ; 
// wProcessorType: Supposedly only used in Win95 ... 
„ lM .f ™--~°^.a„P r =c=e 8B o« yP e PR OC ES SO R _INT E1 ,_3B6, 
tmD = " PROCESSOR INTEL 3 8 6"; 
also T? (syBtemXnfo.SwProceeeorType - PROCE S SOR_INTE L _4 86 ) 

eXse^T? %;^X^^=n^:' - P R OC E S S O R _M IP S_ R ,C00, 

tmo = " PROCESSOR MIPS R4000"; v 
else Tr ( systemlnf o .dwProcessorType PROCESSOR_ALPHA_210 64 > 

tmp = " PROCESSOR_ALPHA_2 1064 " ; 

else 

tmp = - P ROCESSOR_UNKNOWN" ; 
tmp2. Format ("%s" , (const char *) tmp); 

tmp = "ProcessorTy P e=" + AtpAttrib : : QuoteStnng ( tmp2 ) , 
inventory. ParseLine ( tmp) ; 

Send J mD2 Fo rmat("%d", systemlnf o . dwProcessorType) ; 

tmp = °SYSTEM_INFO.dwProcessorType=" + AtpAttrib: = QuoteSt r rng < tm P 2 ) ; 

inventory . ParseLine (tmp) ; 
// wProcessorLevel: gets kind of fancy for different models ... 
" N rf e (o;SersionIn?o W dwPlatformId VER_PLATFORM_WIN3 2_WIN D OWS) 

{ 

tfifdef FANCY INVENTORY 

IT = ""'isystemlnfo. wProcessorArchitecture == PROCESSOR — ARCHITECTURE INTEL ) 
{ // 3 == 386, 4 = 486, 5 = Pentium 
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if ( systemlnf o . wProcessorLevel == 3) 

tmp = "Intel 8 03 86"; 
else if ( systemlnf o . wProcessorLevel == 4) 

tmp = "Intel 80486"; 
else if ( systemlnf o . wProcessorLevel == 5) 

tmp = "Intel Pentium"; 

else 

tmp = "Intel Unknown"; 

else ^ if ( systemlnf o.wProcessorArchitecture == PROCESSOR ARCHITECTURE MI PS ) 

{ // 4 = R4000 

if ( systemlnf o . wProcessorLevel == 5) 
tmp = "MIPS R4000"; 

else 

tmp = "MIPS Unknown" ; 

else if (systemlnf o.wProcessorArchitecture == PROCESSOR ARCHITECTURE ALPHA ) 

{ // 21064, 21066, 21164 

if ( systemlnf o . wProcessorLevel == 21064) 

tmp = "Alpha 21064"; 
else if ( systemlnf o . wProcessorLevel == 21066) 

tmp = "Alpha 21066"; 
else if ( systemlnf o . wProcessorLevel == 21166) 

tmp = "Alpha 21166" ; 

else 

tmp = "Alpha Unknown" ; 
else* if (systemlnf o.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_PPC ) 



{ // 1 


601, 3 603, 


4 604, 6 603+, 


9 604 + 


if 


( systemlnf o 


wProcessorLevel 


= = 1) 


tmp 


= "PPC 601", 






else if 


{ sys temlnf o 


wProcessorLevel 


= = 3) 


tmp 


= " PPC 603 " , 






else if 


( sys temlnf o 


wProcessorLevel 


— 4) 


tmp 


= " PPC 604" 






else if 


( systemlnf o 


wProcessorLevel 


= = 6) 


tmp 


= "PPC 603+' 






else if 


( sys temlnf o 


wProcessorLevel 


= = 9) 


tmp 


= "PPC 604+' 






else if 


{ sys temlnf o 


wProcessorLevel 


= = 20} 


tmp 


= "PPC 62 0" 














tmp 


= "PPC Unknown"; 





// Include raw value, just in case Micro$oft extends something on us . . . 
tmp2 . Format (" %s " , (const char *) tmp); 

tmp = " ProcessorLevel= " + AtpAt tr ib : : QuoteSt ring ( tmp2 ) ; 
inventory . ParseLine ( tmp) ; 
ttendif 

tmp2 . Format ( " %ld" , systemlnf o .wProcessorLevel ) ; 

tmp = " SYSTEM INFO . wProcessorLeve 1 = " + AtpAt trib Quotes t ring ( tmp2 ) ,- 

inventory . ParseLine (tmp) ; 
} 

// wProcessorRevision : gets really fancy for different models . . . 
// Note: not used on Win95 . . - 

if (osVersionlnfo.dwPlatformld != VER PLATFORM WIN3 2 WINDOWS ) 

{ 

ftifdef FANCY I NVENTOR Y 

tmp = " " ; 
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(syst e m info.wP r ocessorArchitectur e -- PROCESSOR — ARCHITECTURE INTEL) 
^ // 3 == 386, 4 = 486, 5 = Pentium 
if ((sysCemlnfo.wProcessorLevel ==3) || 

(systemlnfo.wProcessorLevel == 4)) 

If ((systemlnfo.wProcessorRevision & OxFFOO) == OxFFOO) 
tmp. Format ( "Model %d Step %d" , 

((systemlnfo.wProcessorRevision & OxOOFO) » 4) - OxA, 
(systemlnfo.wProcessorRevision & OxOOOF) >> 4); 

else 

tmp . Format ( "Model %c Step %d", 

((systemlnfo.wProcessorRevision & OxFFOO) >> 8) + 
(systemlnfo.wProcessorRevision & OxOOFF) ); 

else'if (systemlnfo.wProcessorLevel == 5) 

tmp. Format ("Model %d Step %d» , mnn * 

({systemlnfo.wProcessorRevision & OxFFOO) >> 8), 

(systemlnfo.wProcessorRevision & OxOOFF)); 

elSe tm P . Format (" UNKNOWN ( %d) " , systemlnfo.wProcessorRevision & OxFFOO); 
else } if (systemlnfo.wProcessorArchitecture PROCESSOR — ARCHITECTURE MI PS ) 

Lp- Fori: ("Revision *d" , systemlnfo.wProcessorRevision * OxFFOO); 
else } if (systemlnfo.wProcessorArchitecture -- PROCESSOR ARCHITECTURE ALPHA) 

{ // 21064, 21066, 21164 

tmp. Format ("Model %c Pass %d" , , nf) . . , A . 

((systemlnfo.wProcessorRevision & OxFFOO) >> 8) + 
(systemlnfo.wProcessorRevision & OxOOFF)); 

else } if (systemlnfo.wProcessorArchitecture PROCESSOR_ARCHITECTURE_PPC ) 

// 1 601, 3 603, 4 604, 6 603+, 9 604+, 20 620 

tmp. Format ("Version %02d.%02d", „.., _ R) 

((systemlnfo.wProcessorRevision & OxFFOO) » 8), 
(systemlnfo.wProcessorRevision & OxOOFF) ) ; 

tmp2^ Format ( "%s" , (const char *) tmp); lt - mr ,-y^. 
tmp = "ProcessorRevdsion=" + AtpAt trib -. = QuoteSt ring ( tmp2 ) ; 
inventory . Par seLine ( tmp) ; 

inventory . ParseLine (tmp) ,- 

} 

} 

// Computer name, current user name 
{ 

DWORD dwSize; 

char nameBuf [MAX COMPUTERNAME — LENGTH+4 09 6 ] ; 

dwSize = sizeof (nameBuf ) -1 ; 

dwSize = sizeof (nameBuf ) -1 ; 



1 ? 



} 

// Existence of sound- output devices: 

// For now, we just want to know that there is an output device for sound, 
// not the details of the device. We just return the number of such 
// output devices (zero if no sound output) 

// We don't care about microphone input for now: we think of our business 
// as one of distributing documents to be "viewed", not general software. 



{ 

UINT devCount ,- 

devCount = midiOutGetNumDevs ( ) ; 

tmp . Format ( "midiOutGetNumDevs=\ 11 %ld\ " 
inventory . ParseLine (tmp) ; 

devCount = waveOu tGetNumDevs < ) ; 

tmp . Format ( " waveOutGetNumDevs=\ " %ld\ " 
inventory . ParseLine ( tmp) ; 



DWORD ( devCount ) ) ; 



DWORD (devCount ) ) ,- 



devCount = auxGetNumDevs ( ) ,- 

tmp . Format { ■' auxGetNumDevs = \ "%ld\" " , DWORD (devCount ) ) ; 

inventory . ParseLine ( tmp) ; 

} 

} 

// Support routine for CheckDocumentOpenAssociat ion : 
// Get default value for a key, if it is a string. 
// Returns TRUE if there is one, 

// Returns FALSE if none, or no such key, or default is not a string. 
BOOL GetDef aultStringValue (const char * keyName , CString & def aultValue) 



HKEY hKey; 

LONG status ; 

status = RegOpenKeyEx ( 

HKEY CLASSES ROOT , 

keyName , 

0 , 

KEY_READ , 
&hKey) ,- 

if (status != ERROR_SUCCESS) 
return FALSE, - 



ut how many 



// No such key. 
lues to scan . . . 



// open key 

// subkey 

// reserved 

// security 



DWORD dwValueCount ,- 
DWORD dwMaxNaraeLen; 
DWORD dwMaxValueLen ; 
status = RegQuerylnf oKey ( 
hKey, 

NULL , NULL , 

NULL, 

NULL, 

NULL, 

NULL, 

&dw Value Count , 
&dwMaxNameLen , 
&dwMaxValueLen , 
NULL, 



// Class name and len: not used here. 

// Reserved. 

// Number of subkeys 

// Longest subkey name length 

// Longest class name length 



// Security descriptor 
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NULL.) ; // Last time written 

if (status != ERROR_SUCCESS) 
{ 

SetLastError (status) ; 
HACKassert ("Error on RegQuerylnfoKey" , status == ERROR_SUCCESS) ; 
throw; // XXX Should be a different exception. 

} 

char * nameBuffer = new char [dwMaxNameLen +2] ; 
char * valueBuffer = new char [dwMaxValueLen+2] ; 
DWORD dwlndex, dwType ; 
BOOL bFoundMatch = FALSE; 

for (dwlndex = 0; dwlndex < dwValueCount ; dwlndex++) 

DWORD nameBuf f erSize = dwMaxNameLen +1; 
DWORD valueBuf f erSize = dwMaxValueLen+1; 
status = RegEnumValue ( 

hKey, // Key to enumerate 

dwlndex, // index of value 

nameBuffer , 

&nameBuff erSize , 

NULL, // reserved. 

tdwType, // buffer type code. 

(unsigned char *) valueBuffer, // value data buffer 

kvalueBuff erSize) ; // value data buffer size, 
if (status != ERROR_SUCCESS) // Should always work: we got 

| // the count and size values already. 

SetLastError (status) ; 
HACKassert ("Error on RegEnumValue ", status == ERROR_SUCCESS) ; 

throw; // XXX Should be a different exception. 

} 

if (dwType != REG_SZ) 

continue; // default value is always a string. 

// See if this is the default value . . . 

if (strcmp (nameBuf fer, " " ) != 0) 

continue; //No: default value has empty string for a name 

defaultValue = valueBuffer; 
bFoundMatch = TRUE; 
break ,- 
} 

delete [] nameBuffer; 
delete [] valueBuf fer; 
status = RegCloseKey (hKey) ; 
hKey = NULL; 

if (status != ERROR_SUCCESS) 
{ 

SetLastError (status) ; 
HACKassert ("Cannot close hKey handle " , status == ERROR_SUCCESS) ; 
throw; // XXX Should be a different exception. 

} 

return bFoundMatch,- 

} 

// Support routine for GetAllDocumentOpenAssociations : 

// returns TRUE if these an "open" class association in the registry like this 
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// "open" command line passed back in openAppEntry 



with a 



BOOL C heckDocumentOpenAssociation(char * extens ionName , CString * openAppEntry) 
{ openAppEntry = " XXXAppName " ; // Debugging hack. 

CString className; \ 

if (.GetDefaultStringValue ( extens ionName , className)) extension 
return FALSE; //No matching entry for that file extension. 

// OK. look for the "open" command line entry under this key name - . - 

className += " \\shell\\open\\ command " ; 

if ( IGetDefaultStringValue (className, openAppEntry)) 

return FALSE; // No matching entry for that file extension. 

return TRUE ; 

} 

// Routine to get a list of all the document types that have 

// a "viewer", i.e. an association for "open" in the class registry. 

void GetAllDocumentOpenAssociations(At P Attrib * associationList ) 

{ 

// Strategy: 

// Search for keys starting 
/ / For each such key ... 

// Look for the <No Name> REG_SZ application 

// Find the registry entry named that "application name 

/ / Check for a sub-key 

// -application name" \ she 11 \open\ command 

f / t .if one exists, then note the entry in our association list. 

// kS"ioo, like they are lexigraphically ordered, but on windows95, 
// th^y aren't: it's a fake done by the "RegEdit" program. 
// Find out how big a name buffer to allocate ... 

LONG Status; 
DWORD dwMaxNameLen ; 
#ifdef DID_NOT_WORK 

DWORD dwValueCount ,- 
DWORD dwMaxValueLen ; 
status = RegQuerylnfoKey ( 

HKEY CLASSES ROOT , 

NULL, NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

&dwValue Count , 
ScdwMaxNameLen , 
&dwMaxValueLen , 
NULL, 
NULL) ; 

if (status != ERROR_SUCCESS) 



// Class name and 1 
// Reserved. 
// Number of subkeys 
// Longest subkey name length 
// Longest class name length 



// Security descriptor 
// Last time written 



not used here . 



SetLastError (status) ; cirrus) • 

„ R CKasser t( » Error on ^eryl^oK.,- ..t.^^^sUCO^, ^ exoeptio „. 
throw; " 
} 
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tfelse 

dwMaxNameLen =4096; 
#endif 

char * extensionNameBuffer = new char [dwMaxNameLen + 2] ,- 
CSt ring openAppEntry; 
CString tmp; 

// Scan until we get to a key starting with a '• . " ... 
DWORD dwlndex; 

for (dwlndex = 0; ,• dwlndex++) 
{ 

DWORD dwKameLen = dwMaxNameLen; 

status = RegEnumKeyEx ( 

HKEY_CLASSBS_ROOT , // Key to enumerate 
dwlndex, // index of subkey to enumerate 

extensionNameBuffer,// buffer for subkey name 
&dwNameLen, // size of subkey name buffer 

NULL, // reserved. 

NULL. , // buffer for class name 

NULL, // size of class name 

NULL) ; // Last time written to 

if Ustatus != ERROR_NO MORE ITEMS ) && (status != ERROR_SUCCESS ) ) 

SetLastError ( status ) ; 
HACKassert ( "Error on RegEnumKeyEx" , status == ERROR SUCCESS); 
} ~ 
if (status != ERROR_SUCCESS) // All done ... 

break ; 

if (extensionNameBuffer [0] != ' . ■) 

continue; // Doesn't start with "." 

// OK, get the app name and check it ... 

if (CheckDocumentOpenAssociation (extensionNameBuffer, openAppEntry) ) 
{ // Add to our list, 

tmp. Format { "%s=%s" , extensionNameBuffer, 

(const char *) AtpAttrib :: QuoteString (openAppEntry )) ; 
associationList . ParseLine (tmp) ; 
} 

status = ERROR_SUCCESS; // Just a place to set a breakpoint, 
delete [] extensionNameBuffer,- 



I 
i 

tfifdef SOURCE_CONTROL_BLOCK 

j Project Name: E-PS Client/Server program 
IE- PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: Utility utility classes and methods for client/server project 

$Workf ile: Sys t emlnven tory . epp $ 

$Author: Jrward $ 

$Revision: 12 $ 

$Date: 1/06/97 11:06a $ 

$Modtime: 1/05/97 7:37p $ 



$History: Systeralnventory.cpp $ 

* ***************** Version 12 ***************** 

* User: Jrward Date: 1/06/97 Time: 11:06a 

* Updated in $/atp/Utility 

* Removed our configuration data from "system inventory": we access i 

* separately now . 

* ***************** Version 9 ***************** 

* User: Jrward Date: 1/02/97 Time: 10:59a 

* Updated in $/atp/Ut ility 

* Added SOURCE_CONTROL_BLOCK stuff . 

// JRW 961203 GetSystemlnventory moved here from utility. cpp. 

// JRW 961204 GetAllDocumentOpenAssociations added, 

// non-Win95 stuff conditioned out in GetSystemlnventory. 

// JRW 961205 Added waveOutGetNumDevs , etc. for sound output, 
liendif // SOURCE_CONTROL_BLOCK 
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// atpsock.cpp = implementation of the CAtpSocket class 



((include <stdlib.h> 

((include "stdafx.h" 

((include <assert.h> 

# include < memory . h> 

((include "atpsock.h" 
((include " atpexcept . h" 
((include "atpdataval . h" 

(tifdef DEBUG 

((define new DEBUG NEW 

Kundef THIS FILE 

static char THIS_FILE[] 
((endif 

((define DEBUG_OUTPUT 
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((define DEFAULT TIMEOUT 

#define DEFAULT BLOCKS I ZE 

((define CRYPT RANDOM LEN 3 2 

((define CRYPT SERVER KEYHOLDER "ATP SERVER KEYHOLDER" 

((define CRYPT KEYHOLDER NAME (usernarae) (username + "_atp_keyholder •• ) 

((define DEFAULT PROVIDER NAME "ElectronicParcelService" 



///////////////////////////// 
// AtpSocketlmplementations 

AtpSocket : : AtpSocket ( IAtpCal lback 
m_pCB = pCB; // JRW 961127 
ra_buflen = 0; 

m_timeout = DEFAULT TIMEOUT ; 

m_block_pref = DEFAULT BLOCKSIZE ; 

m_fast = FALSE; 
m__encrypt_data = TRUE; 
m_really_encrypt = FALSE; 
m_provider = NULL; 

rn_outgoing_session_key = NULL; 
m_incoraing_session_key = NULL; 

} 

AtpSocket :: -AtpSocket ( ) { 

if (m_outgoing_session_key) delete 
if (m_incoming_session_key) delete 
if (m_provider) delete m_provider; 



void AtpSocket :: Close ( ) { 
if (m_hSocket) 

CAsyncSocket : : Close ( ) ; 
else 

closesocket (my_hSocket ) ; 

} 

XString AtpSocket :: GetUserName ( ) { 
return m_usernarae; 

} 



pCB ) { 



_ou t go i ng_s e s s i on_key ; 
incoming_ sess ion_key ,- 
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CString AtpSocket : : Get ProviderName ( ) { 
return m providerName ; 

} 

SocketTraf f ic& AtpSocket = = Get SocketTraf f ic ( ) { 
return traffic; 

} 

// initialize the ATP client protocol: Read the initial response from server 
// throws Protocol Error Except ion 

void AtpSocket :-. InitializeClient ( ) { 
unsigned long opt = 0; 
int code ; 
AtpAttrib arg; 

GetPeerName (m_peerhost , mjpeerport) ; 
my_hSocket = Detach ( ) ; 

ioctlsocket (my_hSocket, FIONBIO, fcopt) ; // set blocking 

RecvResponse (code , arg) ; 

if (code != ATP_RS P SERVER READY ) 

throw AtpProtocolException ( ) ; 
m_providerName = arg [" ProviderName " ] ; 

} 

void AtpSocket :~ InitializeServer ( ) { 
unsigned long opt = 0 ; 
AtpAttrib arg; 

GetPeerName (m_peerhost , m_peerport); 
my hSocket = Detach <) ; 

ioctlsocket (my _hSocket , FIONBIO, &opt); // set blocking 

arg ["ProviderName"] = DEFAULT PROVIDER — NAME ; 

SendResponse (ATP RSP SERVER READY , arg) ; 

} 



ttifdef USE CRYPT LIBRARY 

void AtpSocket: :MangleData<CryptProvider & provider, CByteArray & data, 
CryptKey& pwd key) { 
// Mangle the data 

pwd_key . EncryptData (data, TRUE); 
CryptHash data_hash (provider) ; 
data_hash.HashData (data) ; 
data_hash.GetValue (data) ; 
pwd_key . EncryptData (data, TRUE) ,- 

} 

#endif 

// Authentication & encryption solution: _ ., , lic ,- d . 

// For efficiency reasons, there are two scenarxous possibly used. 
// One using encryption and one sending the data m the open 
// 

// A- Authentication only 

// The sequence of commands is the following: , . . _ server 

// 1 the client creates random data sequence and sends it to the server 
// 2 the server encodes that sequence using the user's passwd and 
// send back the hash (also encoded) - It also sends back its own 
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// 

\ f 

// 
// 
// 
// 1 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



3 . l^tT^ll, ^^^-^JTL^* 

. Authentication and encryption wouid like to exchange 

We have a private key (password) *™ the MicroS oft encryption 

ou r session Keys by "^^^ an RSA public/private 

K^r - e a™t a r^pH^ -e above process are 
^^cl'i-rcr^e^'RSA k ey pair, and sends the server its 
" public Key and a random^ ^ ^ir^and sends the client its 

2. the server creates an RSA Key * a ^ d sequenC e using the 
public Key- It also encode s the c ^ encoded) as well 
user's password and sends back the client . s public key) 

as its session Key (encrypted «i th the cX * J hash; then it 

3. t he client checks the ^orrectnesB of the recex ^ ^ 
7^^^^ will 1 :: fts owfsession key (encrypted w.th 

4. ^.rvi^th. correctness of the received hash 



,-orHonHCStrinq username , CString password) { 
BOOL AtpSocket : ..RuthenticateClient (CString u 

int code ; 
AtpAttrib arg; 



username 



username ; 



tfifdef USE CRY FT LIBRARY 



*rsa = NULL; 



Crypt Key 

CryptKey *server_rsa = NULL; 
CryptKey *outaoing sessxon_Key = NULL , 



CryptKey 
CByteArray 



outgoing_sess _ 
incoming_session_key = NULL; 
random, received, Key_export 



try 



{ 



U ■der i r n ew e Cryp^Prov!der(CRYPT_KEYHOLDER_NAME (username) ) ; 



m_prov 
} catch (CMyException 
ex ; 

yider = NULL; 



ex) { 



} 



m_prov i 



if ( i m_provider ) { 

// simple authentication 
arg - RemoveAl 1 ( ) ; 

arg [ATP ARG USERl = username ; 

arg [ATP_ARG_PASS] = password; 
SendCommand ( ATP_CMD_LOGIN , arg ) 

RecvResponse (code , arg); 

if (code 1 = ATP_RSP_LOGIN_OK) 
throw AtpProtocolExceptionO ; 

return TRUE; 

} 

ttifdef USE CRYPT LIBRARY 

try { 



cryptography won't work 
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///////////// 

// Phase 1 

// Generate random data 

Crypt Providers provider = *m_provider ; 

provider . Generat eRandom (random, CRY PT_RANDOM_LEN ) ; 

// Generate RSA key and a session key if the data will be encrypted 
if (m_encrypt_data) { 
try { 

rsa = new Crypt Key (provider , AT KEYEXCHANGE ) ; 

rsa- > Export Key ( key_export , PUBL I CKE YBLOB ) ; 

// use a stream encryption algorithm for the data 

outgoing_session_key = new CryptKey (provider , CALG_RC4 ) ,- 

} catch (CryptAPIException ex) { 
ex ,- 

m_encrypt_data = FALSE ; 
if (rsa) delete rsa; 
rsa = NULL; 

if (outgoing_session_key) delete outgoing_session_key ,- 
outgoing_session_key = NULL; 
} 



1) 



username ,- 
AtpAttrib : 



UnparseBinary (random) ,- 



// Send data (phas 
arg . RemoveAll ( ) ; 

arg [ AT P_ARG US E R] 

arg [ATP_ARG SALT ] 

if (m_encrypt_data) 

arg [ATP ARG RSA] = AtpAttrib: : UnparseBinary (key_export ) ; 

SendCommand (ATP CMD LOGIN, arg) ; 

///////////// 
// Phase 2 

// Create key based on the password 
CryptHash pwd_hash (provider) ; 
pwd_hash . HashData (password) ; 

CryptKey pwd_key (provider , CALG_RC2 , pwd_hash) ; 

// Calculate expected result 
MangleData (provider , random, pwd_key ) ; 



// Get a response and handle it 
RecvResponse ( code , arg) ,- 

switch (code) { 

case AT P_RS P_LOG IN ENCRYPTION : 

if ( ! m_encrypt_data) 
throw AtpProtocol Except ion O ; 

break ; 

case ATP_RSP_LOGIN_NO_ENCRYPTION : 

if (m_encrypt_data) { 
m_encrypt_data = FALSE; 
delete rsa; 
rsa = NULL; 

} 

break ; 

case AT P_RS P_LOG IN FAIL : 

if (rsa) delete rsa; 
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return FALSE; 
default : 

throw AtpProtocolExcept ion ( ) ; 

} 

// check if the server knows the password 
try { 

BOOL correct = TRUE; 

AtpAttrib: : ParseBinary (arg [ATP ARG RESULT] , received) ; 

if (received. GetSize ( ) != random . GetSize () ) 
correct = FALSE, - 
else 

for (int i = 0; i < recei ved . Get Si ze ( ) ; i++) 
if (receivedti] != random[i] ) { 
correct = FALSE; 
break ; 

} 

if { ! correct ) { 
if (rsa) delete rsa,- 

if (server_rsa) delete server_rsa; 

if (incoming_session_key) delete incoming_session_key ,- 
if (outgoing_session_key) delete outgoing_session_key ,- 
return FALSE; 

} catch (Format Except ion ex) { 
ex ; 

throw AtpProtocolException () ; 



// Get server's public key 
if (m_encrypt_data) { 
try { 

AtpAttrib: : ParseBinary (arg [ATP_ARG_RSA] , received) ; 

} catch ( Format Except ion ex) { 
ex ; 

throw AtpProtocolException () ; 
} 

try { 

server_rsa = new CryptKey (provider, received) ; 

} catch (CryptAPIException ex) { 
ex ; 

throw AtpProtocolException () ; 
} 



// Get server's random data/session key 
try { 

AtpAttrib: : ParseBinary (arg. [ATP ARG SALT] , received) ; 

} catch (Format Except ion ex) { 
ex ; 

throw AtpProtocolException () ; 

} 

if (m_encrypt_data) { 

tr y { • t i 

incoming_session_key = new CryptKey (provider , received) 

} catch (CryptAPIException ex) { 
ex ; 

throw AtpProtocolException () ; 
} 
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///////////// 

// Phase 3 



// Mangle server's random data 

Mangle Data (provider , received, pwd_key) ; 



if (m_encrypt_data) { 

// Export the client session key using server's rsa 
outgoing_session_key- >ExportKey ( key_export , SIMPLEBLOB , 

} 

// Send data (phase 3) 
arg . RemoveAl 1 ( ) ; 

arg [AT P ARG US E R ] ■ = 

arg [AT P ARG RESULT] 

if (m_encrypt_dat a ) 

arg [ AT P ARG SALT ] 

SendCommand (ATP_CMD_LOGIN2 , arg) ; 

delete rsa; 
rsa = NULL; 
delete server_rsa 
server rsa = NULL; 



* server_rsa ) ; 



username ; 

= AtpAttrib: :UnparseBi 



AtpAttrib: : Unpars 



ry (received) ; 
Binary (key_export ) ; 



///////////// 
// Phase 4 

RecvResponse ( code , arg) ; 
if (code != ATP_RSP_LOGIN_OK) 
throw AtpProtocolExcept ion ( ) ; 

} catch (CMyException ex) { 
ex ; 

if (rsa) delete rsa; 

if (server_rsa) delete server_rsa,- 

if (outgo ing_s es s ion_key ) delete outgoing_session_key; 
if (incoming_session_key) delete incoming_session_key ; 
throw ; 

} 

m_outgoing_session_key = outgoi ng_s e s s i on_key ; 
m_incoming_session_key = incoming_session_key ; 
m_really_encrypt = m_encrypt_data ; 
tfendif 

return TRUE; 

} 

// to be implemented 

BOOL AtpSocket : : Authent icateServer ( ) { 
// implement a private key encryption 
// scheme a la Kerberos (passwords do not 
// travel in the open) 

_ AtpCommand cmd; 
AtpAttrib arg; 

///////////// 
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// Phase 1 

RecvCommand {cmd, arg) ; 
if (cmd != ATP_CMD_LOGIN) { 
arg . RemoveAll ( ) ; 

SendResponse(ATP_RSP_LOGIN_EXPECTED, arg) ; 
return FALSE ; 

} 

m_username = arg [ATP ARG USER] ,- 

CSt ring password = ServerObt ainPas sword (m_username) ; 
if (password . IsEmpty () ) { 

SendResponse ( ATP RSP LOGIN FAIL, arg) ,- 

return FALSE; 

} 

if (arg [ATP_ARG_PASS] == password) { 

// All is good, authentication successful (simple one) 
arg . RemoveAll ( ) ; 

SendResponse (ATP_RSP_LOGIN_OK, arg) ,- 
return TRUE; 

} 

ttifdef USE CRYPT LI BRARY 

CryptKey *rsa = NULL; 

Crypt Key *client 1 _rsa = NULL; 

CryptKey *outgoing_session_key = NULL; 

CryptKey *incoming_session_key = NULL; 

try { 

// Initialize crypto api 

CByteArray random, received, key_export ; 

m_provider = new Crypt Provider ( CRYPT SERVER KEYHOLDER) 

CryptProviderfic provider = *m_provider ; 

///////////// 
// Phase 2 

// Create key from password 
CryptHash pwd_hash (provider) ; 
pwd_hash . HashData (password) ; 

CryptKey pwd_key (provider, CALG_RC2 , pwd_hash) 
// Get client's data and mangle it 

tr KtpAttrib: : ParseBinary (arg [ AT P ARG S ALT ] , received) 

} catch (Format Except ion ex) { 
ex ; 

throw AtpProtocolException () ; 

MangleData (provider , received, pwd_key) ; 

// Get client's rsa key if encrypting 
if (m_encrypt_data) { 

AtpAttrib: •- ParseBinary (arg [ATP ARG RSA] , key_export ) ; 

client_rsa = new CryptKey (provider , key_export ) ; 

} catch (Format Except ion ex) { 
ex ; 

throw AtpProtocolException () ; 
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} catch (CryptAP I Except ion ex) { 
ex ; 

m_encrypt_data = FALSE ; 
} 

} 

// Create rsa key and session key if encrypting 
if (m_encrypt_data) { 
try { 

rsa = new Crypt Key ( provider , AT KEYEXCHANGE) ; 

rsa->ExportKey (key_export , PUBLICKEYBLOB) ; 
// use a stream encryption algorithm for the data 
outgoing_session_key = new Crypt Key (provider , CALG_RC4 ) ; 
outgoing_session_key->ExportKey (random, SIMPLEBLOB, *client_rsa) 

} catch (CryptAPIException ex) { 
ex ,- 

m_encrypt_data = FALSE ; 

if (client_rsa) delete rsa; 

client_rsa = NULL ; 

if (rsa) delete rsa; 

rsa = NULL; 

if (outgoing_session__key) delete outgoing_session_key; 
outgoing_session_key = NULL; 
} 

} 

// if not encrypting data, just send a random string 
if ( ! m_encrypt_data) 

provider . GenerateRandom ( random, CRYPT RANDOM LEN ) ,- 

// Send data (phase 2) 
arg . RemoveAll ( ) ,- 

arg [ATP ARG SALT] = AtpAttrib •. : UnparseBinary (random) ,- 

arg [ATP ARG RESULT] = AtpAttrib :: UnparseBinary ( received) ; 

if (m_encrypt_data) { 

arg [ATP_ARG RSA] = AtpAttrib :: UnparseBinary (key_export ) ; 

SendResponse (ATP RSP LOGIN ENCRY PTICN , arg) ; 

} 

else 

SendResponse (ATP_RSP_LOGIN_NO_ENCRYPTION, arg) ,- 



///////////// 
// Phase 3 

// Calculate expected result 
MangleData (provider , random, pwd_key) ,- 

// Get a response and handle it 
RecvCommand (cmd, arg) ; 
if (cmd != ATP_CMD_LOGIN2) { 
arg . RemoveAll ( ) ; 

SendResponse (ATP_RSP_LOGIN_EXPECTED, arg) ; 
throw AtpProtocolException ( ) ; 

} 

// Verify if the client knows the password 
try { 

BOOL correct = TRUE ; 

AtpAttrib: : ParseBinary (arg [ATP ARG RESULT] , received) ,- 

if (received .GetSize ( ) != random . GetSi ze () ) 
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correct = FALSE; 
else 

for (int i = 0; i < received . GetSize () ; i++) 
if (received [i] != random[i] ) { 
correct = FALSE; 
break ; 

} 

if { ! correct ) { 
if (rsa) delete rsa; 

if (client_rsa) delete client_rsa; 

if (incoming_session_key) delete incoming__session_key ; 
if (outgoing_session_key) delete outgoing_session_key ; 
return FALSE ; 

} catch (Format Except ion ex) { 
ex ; 

throw AtpProtocolException ( ) ; 

} 

// Get client's session key 
try { 

AtpAttrib: : ParseBinary (arg [ATP ARG SALT] , received) ; 

} catch (Format Except ion ex) { 
ex ; 

throw AtpProtocolException ( ) ; 

} 

if (m_encrypt_data) { 
try { 

incoming_session_key = new Crypt Key (provider, received) 

} catch (CryptAPIException ex) { 
ex ; 

throw AtpProtocolException () ,- 
} 

} 

delete rsa; 
rsa = NULL; 
delete cl ient_rsa ,- 
client_rsa = NULL; 

///////////// 
// Phase 4 

// All is good, authentication successful 
arg . RemoveAll ( ) ; 

SendResponse (ATP_RSP_LOGIN_OK, arg) ; 

} catch (CMyException ex) { 
ex ; 

if (rsa) delete rsa; 

if (client_rsa) delete client_rsa; 

if (incoming_session_key) delete incoming_session_key; 
if (outgoing_session_key) delete outgo i ng_ses s ion_key ; 
throw ,- 

} 

m incoming_session_key = incoming_sess ion_key ; 
m~outgoing_session_key = outgoing_session_key ; 
m_really_encrypt = m_encrypt_data ; 
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ttendif 

return TRUE ; 

} 

CString AtpSocket •- : ServerObtainPassword ( CString username) 
username ; 
return " " ; 

} 

void AtpSocket : : ServerLoop ( ) { 
AtpCommand cmd ; 
AtpAttrib arg; 

while (TRUE) { 

RecvCommand ( cmd , arg) ,- 
switch (cmd) { 

case ATP CMD BLOCK : 

long pref ; 
try { 

pref = AtpAttrib: : Parselnt (arg [ATP ARG PREF] ) ; 

} catch ( Format Except ion ex) { 
ex ; 

throw AtpProtocolExcept ion ( ) ; 

ServerNegot iateBlock (pref ) ; 
break ; 

case ATP_CMD SEND : 

ServerHandleSend (arg) ; 
break ; 

case ATP_CMD_RECV: 

ServerHandleRecv (arg) ; 
break ; 

case ATP_CMD_CLOSE: 



default : 

throw AtpProtocolException ( ) ; 

} 

} 

} 

///// Client operations follow ///// 

// Negotiate a block size with the server 
// throws AtpException 

void AtpSocket = =Negot iateBlock (long preferred) { 
int code ; 
AtpAttrib arg;" 

while (TRUE) { 

arg . Remove All ( ) ; 

arg [ATP ARG PREF] = AtpAttrib :: Unparselnt (pref erred) 

SendCommand ( ATP_CMD_BLOCK, arg) ; 



RecvResponse (code , arg); 
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switch (code) { 

case ATP_RS P_BLOCK_OK : 

m_block_pref = preferred; 

return; 

case ATP RSP BLOCK_BAD : 

case ATP_RSP_BLOCK_PRESET : 

//we are mellow: agree with the suggested size 

try { 

preferred = AtpAttrib: : Parselnt (arg [ATP ARG PREF] ) ; 

} catch { FormatException ex) { 
ex ; 

throw AtpProtocolException ( ) ; 
} 

break ,- 
default : 

throw AtpProtocolExcept ion ( ) ; 

} 

} 

} 

// virtual, to be overridden if necessary 

void AtpSocket :: ServerNegot iateBlock < long clientjpref erred) { 
// always agree by default 
ServerBlockAgree (clientjpref erred) ; 
m_block_pref = cl ient_pref erred ; 

} 

void AtpSocket : ^ServerBlockAgree (long preferred) { 
AtpAttrib arg; 

arg [ATP_ARG PREF] = AtpAttrib :: Unparselnt (preferred) ; r 

SendResponse (ATP_RSP_BLOCK_OK, arg) ; 

} 

void AtpSocket = : ServerBlockDisagree (long preferred, BOOL permanent) { 
AtpAttrib arg; 

arg [ATP ARG PREF] = AtpAtt rib :: Unparselnt (preferred) ; 

i.f (permanent) 

SendResponse(ATP_RSP_BLOCK_PRESET, arg) ; 

else 

SendResponse (ATP_RSP_BLOCK_BAD, arg) ; 



// Send a file to the server. Returns TRUE if file is accepted 
// throws AtpException 

BOOL AtpSocket :: SendFile (AtpFile& fl) { 
int code; 
AtpAttrib arg; 
long from, len ; 
CTime start ; 
CTimeSpan interval ; 

// send file info 

f 1 . GetAttributes (arg) ; 

SendCommand ( ATP_CMD SEND, arg) ; 

while (TRUE) { 

// get a response/ request & handle it 
RecvResponse (code, arg) ; 
switch (code) { 
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case ATP RSP SEND REJECTED : 

return FALSE; 

case ATP_RSP STALL : 

long stall; 

try { stall = AtpAttrib : :ParseInt (arg [ATP ARG STALL] ) ,- ) 

catch (Format Except ion ex) { 



throw AtpProtocolExcept ion { ) ; 



RemoteStall (stall) ; // do not time out for that time 

RecvResponse (code, arg); // ++ check this 

arg . RemoveAll ( ) ,- 

SendCommand (ATP CMD READY , arg) ; 

continue ; 



case ATP RSP SEND DONE : 

// the transfer is complete 
return TRUE ; 

case ATP RSP SEND DATA : 

break ,- 



default : 

throw AtpProtocolException ( ) ; 

} 

// data block has been requested 
try { 

from = AtpAttrib: : Parselnt (arg [ATP ARG FROM] ) ; 

len = AtpAttrib: : Parselnt (arg [ATP ARG LEN] ) ; 

catch (Format Except ion ex) { 



throw AtpProtocolExcept ion () ; 

} 

// check if we can allow a large block transfer 
long stall = m_pCB ? m_pCB- >RequestTransf er ( len) : 0; 
if (stall > 0) { 
arg . RemoveAll ( ) ; 

arg [ATP ARG STALL] = AtpAt t r ib : : Unpar seln t < s t al 1 ) ; 

SendCommand (ATP CMD STALL , arg) ; 

LocalStall (stall) ; 
arg . RemoveAll ( ) ; 

SendCommand (ATP CMD STALLEND , arg) ,- 

continue ; 

else if (stall < 0) { 

// hopeless, close connection 
arg . Remove Al 1 ( ) ; 

SendCommand (ATP_CMD_CLOSE, arg) ; 
Shu t Down (2 ) ; 

throw Atplnterrupt Except ion ( ) ; 

} 

// send the block 
arg . RemoveAl 1 ( ) ; 

arg [ATP_ARG FROM] = AtpAttrib :: Unparselnt ( from) ; 
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arg [ATP_ARG_LEN] = AtpAt t rib : : Unparselnt ( len ) ; 
SendCommand (ATP_CMD_DATA, arg); 
SendDataffl, from, len) ; 

} 

return TRUE; 

} 

// virtual controller function. 

// Override this to define the behaviour at Send 
void AtpSocket: :ServerHandleSend(At P Attrib& arg) { 

// Do not accept files in the default implementation 

arg ,- 

ServerRe j ectSend ( ) ; 

} 

void AtpSocket : : ServerRej ec t Send ( ) { 
AtpAttrib arg; 

SendResponse ( ATP_RSP SEND REJECTED , arg); 

} 

void AtpSocket = :ServerAcceptSend(AtpFile& fl) { 
AtpCommand cmd; 
AtpAttrib arg; 
long from, len; 

while ( ! f 1 . IsComplete ( ) ) { 
// get a vacant block 

£1 . RequestBlcck (m_blockjpref , from, len); 
// can we download a large block? 

long stall = m_pCB ? m_ P CB- >RequestTransf er ( len) : 0; 
if (stall > o) { 
arg . Remove All <) ; 

arg [ATP_ARG_STALL] = AtpAttrib : Unparselnt (stall) , 
SendResponse (ATP_R.S?_STALL, arg) ,- 
LocalStall (stall) ; 
arg . RemoveAl 1 ( ) ; 

SendResponse <ATP_RSP_STALL3ND , arg),- 

RecvCommand(cmd, arg); // verify if this is ready 

f 1 .ClearRequest (f rom, len) ; 
continue ; 

else if (stall < O) { 

// hopeless, close connection 
arg . RemoveAl 1 ( ) ; 

SendResponse (ATP_RSP_CLOSE, arg) ; 
Shut Down (2 ) ; 

throw AtpInterruptException ( ) ; 

} 

// send request for the vacant block 
arq . RemoveAll ( ) ; 

arg [ATP ARG_FROM] = AtpAt trib :: Unparselnt < from) ; 

arg [ATP ARG LEN] = AtpAttrib :: Unparselnt ( len) ; 

SendResponse (ATP_RSP SEND — DATA, arg) ; 

// get a command and handle it 
RecvCommand (cmd , arg); 
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// IDFServer . cpp : Imple 

// C+ + code file 
// (c) 1996 ACS 
// 



citation of the IDFServ 



and IDFile clas 



H include 
ffinclude 
^include 
ft include 
ttinclude 
U include 



stdaf x . h" 
assert . h" 
atpf ile . h" 
atpdata . h" 
atpexcept . h" 
utility . h" 



tfifdef DEBUG 

#define new DEBUG NEW 

ftundef THIS FILE 

static char THIS_FILE[] 
ftendif 



AtpFile : : AtpFile ( ) { 
m_f bound = FALSE; 
m_tentative = TRUE; 
m_f 1 = NULL ; 
m_fsize = 0 ; 
m_f loaded = 0 ; 

} 

AtpFile: :AtpFile (CFile *fl) { 
m_f bound = FALSE, - 
m_tentative = TRUE ,- 
m_fl = NULL; 
m_f size = 0 ; 
m_f loaded = 0; 
Associate ( f 1 ) ; 

} 

AtpFile :: -AtpFile ( ) { 
} 

CFile* AtpFile :: GetFile ( ) { 
return m_f 1 ; 

} 

void AtpFile : : AssignAttributes (CFile* fl, AtpAttribt attrib) { 
try { 

mjsize = m_floaded = f 1 - >GetLength ( } ; 

CFileStatus stat ; 

f 1- >GetStatus (stat) ,- 

attrib [ATP ARG NAME] = f 1 - >Get Fi leName ( ) ; 

attrib [ ATP_ARG_S I ZE] = AtpAttrib : -.Unparselnt (m_f size) ; 
attrib [ATP_ARG_TIME] = AtpAttrib: :UnparseTime (stat .m_mtime) ; 

attrib [ATP ARG CHKSUM] = AtpAttrib: : Unparselnt (CalculateChecksutn ( fl ) ) ; 

} catch (CFileException *ex) { 
ex- >Delete ( ) ; 

throw FileErrorException ( ) ,- 

} 

} 

•void AtpFile :: Associate (CFile* fl) { 
assert ( !m_f bound) ; 
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AtpAttrib attrib; 
AssignAttributes (£1, attrib) ; 

m_attribs = attrib; 

m_fl = fl; 

m_f bound = TRUE; 

} 

long AtpFile: :CalculateChecksum{CFile* fl) const { 
f 1 ; 

return 0 ,- 

} 

void AtpFile :: BindToFile (CFile* fl, long loaded) { 
assert ( !m_f bound) ; 
//assert (m_f size > 0 ) ; 

if (m_f size < 0) 

throw invalidOperationException ( ) ; 
m_f loaded = loaded; 
try { 

f 1- >SetLength (m_f size) ; 
} catch (CFileException *ex) { 
ex->Delete() ; 

throw FileErrorExceptionO ; 

} 

m_fl = fl; 

m_f bound = TRUE; 

} 

void AtpFile :: SetAt tributes (const AtpAttrib& attrib) { 
AtpAttrib attribs = attrib; 
long new_size = 0; 

if (! attribs [ATP_ARG_SIZE] .IsEmptyO ) 
try { 

new_size = AtpAttrib : : Parselnt (attribs [ATP_ARG_SIZE] ) 
if (m_fbound && new_size != m_fsize) { 

//throw InvalidOperationException () ,- 

m_f 1 - > Set Length (new_s i ze ) ; 

} 

m_tentative = FALSE; 
} catch (FormatException ex) { 
ex ; 

HACKassert <" Invalid size format", TRUE) ; 
new_size = 0; 

} 

else 

m_tentative = TRUE ; 

ra_fsize = new_size; 
m_attribs = attrib; 

} 

void AtpFile :: GetAt tributes (AtpAttrib& attrib) { 
attrib = m_attribs; 

} 

long AtpFile GetSize ( ) const { 
return m_fsize; 
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long AtpFile : : GetLoadedSize ( ) const { 
return m_f loaded; 

} 

BOOL AtpFile: asComplete () const { 

return ( ! m_tentat ive m_f loaded == m_f size) ; 

} 

BOOL AtpFile :: IsBound ( ) const { 
return m_f bound; 

} 

BOOL AtpFile: :RequestBlock( long pref , long & from, long & len) { 
assert (m_fbound) ; 

if ( ! m_f bound) 

throw invalidOperationException ( ) ; 

if (isComplete () ) return FALSE; 

from = m_f loaded; 

len = (pref > 0) ? pref = m_fsize - from; 
if (from + len > m_f size) 

len = m_fsize - from; 
return TRUE; 

} 

BOOL AtpFile: -.ClearRequest (long from, long len) { 
f rora ; 1 en ; 
return TRUE; 

} 

void AtpFile: :WriteBlock (void *data, long from, long len) { 
assert (m_fbound) ; 

if ( ! m_f bound) 

throw InvalidOperationException {) ; 
if (from < 0 | | len < 0 M from + len > m_f S1 ze) { 

HACKassert { "Invalid range", TRUE) ; 

throw RangeErrorException { ) ; 

} 

// do not write again (or when file is complete) 
if (from - len <= m_f loaded) return ; 

try { . 
m _f i->Seek (f rora, CFile: :begrn) ; 
m f 1- >write (data, len); 

il (from <= m_f loaded && from + len > m_f loaded) 
m_f loaded = from + len; . 
} catch (CFileException *ex) { 
ex- >Delete ( ) ; 

throw FileErrorExceptionO ; 

} 

} 

void AtpFile: =ReadBlock (void *data, long from, long len) { 
assert (m_f bound) ,- 
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assert {from >= 0 && len > 0) ; 

if ( ! m_f bound) 

throw InvalidOperationException ( ) ; 
if (from < 0 | | len < 0 | | from + len > m_f size) 

throw RangeErrorExceptionO ; 

try { 

m_fl->Seek(from, CFi le :: begin ) 
if {{ long) m_fl - >Read (data , len) != len) 
throw FileErrorException ( ) ; 
} catch . (CFileException *ex) { 
ex- >Delete ( ) ,- 

throw FileErrorException { ) ; 

} 

) 

BOOL AtpFile :: operator== (const AtpFile& comp) const { 
try { 

AtpAttrib attribl, attrib2; 
attribl = m_attribs; 
attrib2 = comp . m_att ribs ; 

return {attribl [AT P ARG NAME] == attrib2 [ATP ARG NAME ] && 

AtpAttrib: : Parselnt (attribl [ATP_ARG_SIZE] ) == 
AtpAttrib: : Parselnt (attrib2 [ATP_ARG_SIZE] ) && 

AtpAttrib: : Parselnt (attribl [ATP ARG CHKSUM] ) == 

AtpAttrib: : Parselnt (attrib2 [ATP ARG CHKSUM J ) && 

AtpAttrib :: ParseTime (attribl [ATP_ARG_TIME] ) == 

AtpAttrib: : ParseTime (attrib2 [AT P ARG T I M E ] ) ) ; 

} catch (FormatException ex) { 

ex ; 

return FALSE ; 



// End of code 

ttifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: EPS Protocol 

$Workfile: atpfile.cpp $ 

$Author: Ttonchev $ 

$Revision: 9 $ 

$Date: 1/31/97 9:58a $ 

$Modtime: 1/31/97 9:15a $ 

$History: atpfile.cpp $ 

* ***************** Version 9 ***************** 

* User: Ttonchev Date: 1/31/97 Time: 9:58a 

* Updated in $/atp/ Protocol 

* fixed problems with I s Complete ( ) when the default size is 0 

* ***************** Version 8 ***************** 

* User: Ttonchev Date: 1/28/97 Time: l:23p 

* Updated in $/atp/ Protocol 
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* ***************** Version 7 *** 

* User: Jrward Date: 1/27/97 

* Updated in $/atp/ Protocol 

* Added VSS history stuff. 
#endif // SOURCE_CONTROL_BLOCK 
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// . .. 

// C++ header file 
// (c) 1996 ACS 
// 

Bifndef _ATPFILE_H_ 
(Jdefine ATPFILE H_ 

U include "stdafx.h" 
(♦include "atpattrib.h" 

class AtpFile -. public CObject { 

Pr // a disallow copy contractor and assignment 
AtpFile (const RtpFilet) ; 
void operator= (const AtpFile&); 

public : 

virtual -AtpFile (); 
public : 

// Methods for interaction with the class 
BOOL opera_tor== (const AtpFilet comp) const; 

virtual void Set At tributes ( cons t AtpAttrib& attrib) ; 
virtual void GetAttributes(AtpAttrib& attrib) ,- 

virtual BOOL I sComplete ( ) const; 
virtual BOOL IsBoundO const; 
virtual CFile* GetFileO; 

virtual long GetSizeO const; 
virtual long GetLoadedSize ( ) const; 

virtual BOOL RequestBlockdong pref. iong & from, long* len) ,- 
virtual BOOL ClearReques t ( long from., long len) f 

virtual void Wr i teBlock ( void *data, long from long len) ; 
virtual void R eadBlock(void *data, long from, long len); 

protected : 

// interaction wjlu-.i ^ — 

void BindToFile (CFile* fl, long loaded 

virtual void AssignAttribu 
void Associate (CFile* fl); 

Pr iong e CalculateChecksum (CFile *fl) const; 
// Member Variables Section 

Pr /7these member variables can be accessed by using the methods 
// please do not use directly 
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CFile *m_fl; 

AtpAttrib ra_attribs; 

BOOL. m_f bound , ra_tentative; 

long m_fsize, m_f loaded; 



ttendif // ATPFILE H 

/ / End of headers 

#ifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: E-parcel.com 

$Workfile: atpfile.h $ 

$Author: Ttonchev $ 

$Revision: 4 $ 

$Date: 1/31/97 9:58a $ 

$Modtime: 1/31/97 9:09a $ 

$History: atpfile.h $ 

* ***************** Version 4 ***************** 

* User: Ttonchev Date: 1/31/97 Time: 9:58a 

* Updated in $ /atp/ Include 

* fixed problems with IsComplete ( ) when the default 

* User: Jrward Date: 1/27/97 Time: 12 : 13p 
+ Updated in $/atp/Include 

* Added VSS history stuff. 
#endif // SOURCE_CONTROL_BLOCK 
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// atpclient . cpp : implementation of the AtpClientSocket class 

((include "stdafx.h" 

((include <stdlib.h> 

(( include <assert.h> 

((include "atpclient . h" 

((include "atpexcept . h" 

((include "atpdata.h" 

((include "atpmemf ile . h" 

((include "Systemlnventory.h" 



IAtpCallback 



AtpClientSocket: :AtpClientSocket (IDFServer *idf_ser 
: AtpSocket (pCB) // JRW 961127 

{ 

m_idf_server = idf_server; 
m_pPCB = NULL; 

} 

AtpClientSocket: : -AtpCl ient Socket ( ) { 
} 

void AtpClientSocket: : Run { AtpAt t ribt providers , long bsize) { 
try { 

Init ializeClient { ) ,- 

conn . provider . ParseLine (providers [Get ProviderName ( ) ] ) ; 

if ( ! Authent icateCl ient ( conn . provider [ "UserName " ] , conn . provider [ " User Pas sword " ] ) ) 
ClientQuit ( ) ; 

throw AtpAuthenticationException ( ) ; 

} 

NegotiateBlock(bsize) ,- 
ClientLoop ( ) ; 
ClientQuit { ) ; 
} catch (CMyException ex) { 
ex; 

DWORD err = GetLast Error {) ; 
Close < ) ,- 
throw ; 

} 

} 

void AtpClientSocket: : RunAnon ( IDFi le *idf , long bsize) { 
try { 

InitializeClient ( ) ; 
NegotiateBlock (bsize ) ; 
ClientLoopAnon ( idf ) ; 
ClientQuit ( ) ; 
} catch (CMyException ex) { 



DWORD err 
Close ( ) ,- 



GetLastError ( ) ; 



} 

void AtpClientSocket :: InitObserver (AtpConnUID uid, 

IAtpProgressCallback *pPCB) { 

m_pPCB = pPCB; 
conn. uid = uid; 

conn. state = AtpConnect ion :: CONNECTING ; 
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GetPeerName ( conn . peer_address , conn . peer_port ) ; 
conn. traffic = &Get SocketTraf f ic ( ) ; 
conn . idf = NULL ,• 

if (m pPCB) m_pPCB- >ProcessConnectionState (conn) ; 



} 



void AtpClientSocket : : ClientLoop ( ) { 
// Set state to WAITING 

conn. state = AtpConnec t ion WAITING ; 
conn . peer_address = m_peerhost ,- 
conn . pee report = m_peerport ; 

if (m pPCB) m_pPCB- > Proces s Connect ionS tat e ( conn ) ,- 

// Request current registration information 
{ 

AtpAttrib arg; 

arg [ATP ARG NAME] = ATP FILE REGISTRATION ; 

arg [ATP ARG SPECIAL] = AtpAttrib: :UnparseBool (TRUE) ; 

AtpMemFile afl(arg) ; 
if (RecvFile (af 1 ) ) { 



arg . RemoveAl 1 ( ) ,- 

arg [ATP_ARG NAME] = ATP FILE BENCHMARK; 

arg [ATP ARG SPECIAL] = AtpAttrib :: UnparseBool (TRUE ) 

AtpMemFile af 12 (arg) ; 
RecvFile (af 12 ) ,- 



// Send current configuration 
{ 

AtpAttrib arg, inv ; 

arg [ATP ARG NAME] = AT P_ F I LE CON FIG; 

arg [ATP ARG SPECIAL] = AtpAttrib: : UnparseBool (TRUE) ; 

AtpMemFile af 1 (arg) ,- 
CFile *fl = afl .GetFile () ; 
CArchive arffl, CArchive : •. store ) ,- 
GetSystemlnventory ( inv) ; 
inv.UnparseFile (ar) ; 
ar . Flush { ) ; 
fl->Flush( ) ; 

SendFile (af 1 ) ; 

} 

// Request file list 
{ 

AtpAttrib arg; 

arg [ATP_ARG NAME] = AT P F I LE L 1ST; 

arg [ATP ARG SPECIAL] = AtpAttrib :: UnparseBool (TRUE) ; 

AtpMemFile af 1 (arg) ; 

if (! RecvFile (afl) ) return; 

// ok, got it, now update local file database 
CFile *fl = af 1 .GetFile () ; 
f !->SeekToBegin ( ) ,- 



} 

else { 
} 



} 
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CArchive archffl, CArchive : : load ) ; 
CString line; 

while (arch . ReadString ( line) ) { 
arg . RemoveAll ( ) ; 
arg . ParseLine ( line) ; 

IDFile *idf = m_idf_server->FindIDFile (arg) ; 
if (!idf) { 

idf = new IDFile (arg) ; 

try { 

m_idf _server- >Add ( idf ) ; 
} catch (FileErrorException ex) { 
ex ,- 

continue ; 

} 

} 

} 

} 

// Download incomplete files 

for (int i = 0 ; i < m_idf_server->GetSize() ; i++) { 
IDFile *idf = m_idf_server->GetIDFile(i) ; 
// Lock checks if a transfer is already in progress 
CSingleLock lock ( idf - >GetLock () ) ,- 
if ( ! idf - >IsComplete ( ) && lock . Lock ( 0 ) ) { 

BOOL ok; _ 

try { 

ok = RecvFile (*idf , this); 
} catch (AtpException ex) { 
ex ; 

idf - >Store ( ) ; 
lock . Unlock ( ) ; 
throw ; 

} 

lock . Unlock ( ) ,- 
if (!ok) { 

// ++ delete this idf file --no longer available 
continue ; 

} 

else { 

// File received. Set state to WAITING, 
conn, state = AtpConnect ion : -. WAITING; 

if (m_pPCB) m_pPCB- >ProcessConnect ionState (conn) ,- 

} 

if (idf ->IsComplete ( ) && ! idf - > IsFinal i zed ( ) ) 
idf - >Finalize ( ) ; 

} 

} 

void AtpClientSocket : : CI ientLoopAnon ( IDFile *idf) { 
conn. state = AtpConnect ion WAITING ; 
conn . peer_address = m_peerhost; 
conn .pee r_port = m_peerport ; 

if (m_pPCB) m_pPCB- >ProcessConnect ionState (conn) ; 
// Get requested file 

CSingleLock lock ( idf - >GetLock () ) ; 

// Lock checks if a transfer is already in progress 

3 
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if ( ! idf ->IsComplete C ) && lock . Lock ( 0 ) ) { 
BOOL Ok; 
try { 

ok = RecvFile (*idf , this); 
} catch (AtpException ex) { 
ex ; 

idf->Store ( ) ; 
lock. Unlock ( ) ,- 
throw; 

} 

lock . Unlock ( ) ; 
if (!ok) { 

// ++ delete this idf file -- no longer available 
return ; 

} 

else { 

// File received. Set state to WAITING, 
conn. state = AtpConnect ion :: WAITING ; 

if (m_pPCB) m_pPCB- >ProcessConnect ionState (conn) ,- 

} 

if (idf - >IsComplete ( ) && ! idf ->IsFinalized() ) 
idf - >Finalize ( ) ; 

} 

} 

void AtpClientSocket : : Proces sWrit tenBlock (AtpFile *atp) { 
conn. state = AtpConnect ion :: RECEIVING ; 
conn. idf = (IDFile *) atp; 

if (m pPCB) m_pPCB- > ProcessConnect ionState (conn) ; 

} 

void AtpClientSocket :: ProcessStall (AtpFile *atp) { 
conn. state = AtpConnect ion :: PAUSED ,- 
conn. idf = (IDFile *) atp; 

if (m_pPCB) m_pPCB- >ProcessConnectionS':ate (conn) ; 

} 

void AtpClientSocket Close ( ) { 
CSocket : : Close ( ) ; 

conn. state = AtpConnect ion : : CLOSING; 

if (m pPCB) m_pPCB- > ProcessConnect ionState ( conn) ,- 

} 

///// Debugging utilities ///// 
#ifdef DEBUG 

void AtpClientSocket :: AssertValid ( ) const 
{ 

AtpSocket: : AssertValid ( ) ; 

} 

void AtpClientSocket : -.Dump ( CDumpContext & dc) const 
{ 

AtpSocket: :Dump(dc) ; 

} 

#endif / / DEBUG 



ttifdef . SOURCE_CONTROL_BLOCK 
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Project Name: E-PS CI ient / Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM : CI ient Protocol 

$Workfile: atpclient.cpp $ 

$Author: Ttonchev $ 

SRevision: 12 $ 

$Date: 1/31/97 2:49p $ 

$Modtime: 1/31/97 2:38p $ 



$History ; 



atpclient.cpp $ 



* ***************** Version 12 ** 

* User: Ttonchev Date: 1/31/97 

* Updated in $/atp/ClientProtocol 

* Fixed locking mechanism 

* ***************** Version 11 ** 

* User: Ttonchev Date: 1/31/97 

* Updated in $/atp/ClientProtocol 

* ***************** Version 10 ** 

* User: Jrward Date: 1/27/97 

* Updated in $/atp/ClientProtocol 

* Added VSS history stuff, 
(endif // SOURCE_CONTROL_BLOCK 



Time : 2 : 49p 



Time: 1 : 03p 



Time : 12 : 08p 
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RECEIVING , / r Lsf erased for so m e reason 

CLOSING // Connect ion will be closed 



// atpclient.h = interface of the AtpClientSocRet .class 

ttifndef ATPCLIENT_H 

((define ATP CLIENT — H 

((include "stdafx.h" 

((include -atpsock.h" 

((include "callback.h" 

((include "idf server .h" 

typedef long AtpConnUID; 

class AtpConnection { 
public : 

enum AtpState { connection lust created 

CONNECTING , // ^^lon 'established; waiting for transfer 

WAITING, // Connect: 10 

RECEIVING, // Transfer mg data 

PAUSED, 
CLOSING 

} ; 

AtpConnUID uid; 
AtpState state; 
AtpAttrib provider; 
CString peer_address ; 
unsigned int peer_port ; 

SocketTraffic traffic; , f RECEIVINGf or PAUSED 

IDFile * idt ; ' ' 

}; 

elass AtpClientSocket = public AtpSocket , public lAtpRecvCal Iback ( 
// inherited relevant public methods = 
// mitializeClientO, Authent xcateCHent () 

AtpClientSocket (IDFServer *idf_server, lAtpCallback * pCB = NULL) 
virtual -AtpClientSocket () ; 

void initObserver (AtpConnUID uid, XAtpProgressCallback 
AtpConnection* GetConnect ionState ( ) ; 

void Run(At P Attrib & provider, long bsize) ; 
void RunAnon( IDFile *idf. long bsize) ; 
virtual void ProcessWrittenBlock(At P File *atp) ; 
virtual void ProcessStall (AtpFxle *atp) ; 

virtual void Closet); 

private : 

IDFServer *m_idf _server ; 
IAtpProgressCallback *m_pPCB; 
AtpConnection conn; 

void ClientLoopO; 

void CI ientLoopAnon ( IDFile * idf ) ; 
protected •. 
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ttifdef 
void 
void 

tfendif 



DEBUG 

AssertValid { ) const; 

Dump (CDumpContextSt dc ) const ; 

// DEBUG 



}; 



ttendif // ATPCLIENT H_ 



ftifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS CI ient / Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: E-parcel . com 

$Workfile: atpclient.h $ 

$Author : Jrward $ 

$Revision: 5 $ 

$Date: 1/27/97 12:13p $ 

$Modtime: 1/27/97 12 : lOp $ 

$History: atpclient.h $ 

* ***************** Version 5 ********** 

* User: Jrward Date: 1/27/97 Time 

* Updated in $/ atpr/ Include 

* Added VSS history stuff . 
tfendif // SOURCE_CONTROL_BLOCK 
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// 

// C++ code file 
// (c) 19 9 6 ACS 

// JRW 961216 Added m_conf igVals , so we can pass in block xfer size, etc. 

ttinclude "stdafx.h" 
((include "objbase.h" 

((include <assert.h> 

((include " Socket Control . h" 

((include " AtpAttrib . h" 

((include "atpexcept .h" 

((include "sockutil.h" 

((include "utility. h" 

((include "atpdata.h" 

extern int WriteErrorLog (const char * , const char * ) ,- 

SocketControl =: Socke tCont rol (AtpAttrib & configVals) : 
m_conf igVals (configVals) 

^ m_requestValue =0; // JRW 961127 Default is, you can transfer anything. 
m_lsock = NULL; " 

rn_defaultThreadPriority = THREAD PRIORITY NORMAL ; 

uid_max = 0 ; 

} 

SocketControl : : -SocketControl ( ) { 
if. (Ri_lsock) delete m_lsock; 
m_lsock = NULL ; 

for (int i = 0 ; i < m_threads . GetSize ( ) ,- i + +) 
delete (CWinThread *) m_threads[i] ; 

} 

BOOL SocketControl : : Initialize (IDFServer *idfs, XAtpProgressCal lback *pPCB) 
m__idfs = idfs; 
m_pPCB = pPCB; 

m_ lsock = new CListeningSocket ( this ) ; 

if (m_lsock->Create (ATP_PORT) && m_l sock- >Lis ten () ) 

return TRUE ,- 
return FALSE; 

} 

void SocketControl :: ProcessPendingAccept (CAsyncSocket *sock) { 
//for (int i = 0; i < m_todelete . GetSi ze ( ) ; i++) 
// delete m_todelete [i] ; 
//m_todelete . RemoveAll ( ) ; 

CAsyncSocket *atp_sock = new CAsyncSocket () ; 
if { ! sock->Accept (*atp_sock) ) { 

delete atp_sock; 

return ; 

} 

Threadlnfo * info = new Threadlnf o ( ) ; 
info->me = this; 

info - >sock = atp_sock- >Detach ( ) ; 
delete atp_sock; 



StartSocketThread (inf o) ,- 



void SocketControl : : closeConnections ( ) { 
// close all connections 
CSingleLock lock(&m_sockmutex) ; 
lock . Lock ( ) ; 

for (int i = 0; i < m_sockets . GetSize () ; x++) 
// shutdown the communication 

// this cannot be done cleanly -- CSocket is not thread-safe 
shutdown { ( (CSocket * ) m_sockets [i] ) - >m_hSocket , 2 ) ; 

lock .Unlock ( ) ; 

// wait for all threads to terminate 
while (TRUE) { 

CSingleLock lock(&m_mutex) ; 

lock . Lock ( ) ; 

int num = m_conns . GetSize () ; 
lock . Unlock ( ) ,- 
if (num == 0) break; 
Sleep (10) ; 

} 

} 

void SocketControl : : PollServers (AtpAttrib providers) { 
AtpAttrib provider ,- 
CString s_provider, s_params ; 

POSITION pos = providers . GetStartPosi t ion () ; 
while (pos) { 

providers. GetNextAssoc (pos, s_provider, s_params ) ; 

provider . RemoveAl 1 ( ) ; 

provider . ParseLine (s_params) ,- 

if ( Se rve rConnec t ionAl re ady (provider) ) 
continue ; 

BOOL bSuccessful; 

bSuccessful = ConnectToServer (provider) ; 

// Write something to the log - . . 
CTime t = CTime : : GetCurrentTime ( ) ; 
CString stime = t . Format {" %#c ") ; 
int status = ERROR_SUCCESS ; 
CString tmp; 

trap • Format ( "%s attempt at %s -- %s", 

(bSuccessful ? "Successful" : "Unsuccessful ), 
(const char *) stime, 

(const char *) provider [" ServerName "]) ; 
status = WriteErrorLog ( "LastServerPoll" , tmp) ; 

} 

" //T^nFListO does lock the list and may cause other threads - block. 

// 
// 



// expensive computation or IDFServer related operations. 
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CPtrArray updates ; 

CPtrArray *idfs = m_idf s - >LockIDFList ( ) ; 
for (int i = 0; i < idfs->GetSize() ; i++) { 
AtpAttrib arg; 

IDFile *idf = (IDFile *) (*idf s) [i] ; 
idf->GetAttributes (arg) ; 

if ( ! arg [ "SERVERNAME" ] . Is Empty { ) && ! idf - >IsLocked { ) ) 
updates . Add ( idf ) ,- 

} 

m_idf s- >UnlockIDFList ( ) ; 

for (int j = 0 ; j < updates . GetSize () ,- j++) 
ConnectToServerAnon ( ( IDFile* ) updates [ j ] ) ; 

} 

// See if we already have a connection going for a particular 

// server before the client starts a (new) connection to it ... 

// Note: not really thread safe, the server could initiate a connection 

// in the interval between when we check and when we start, but 

// Theo wants it this way. 

BOOL Socket Control : : ServerConnect ionAlready (AtpAttrib provider) 
{ 

// XXX Note: 

// ... need to teH Theo, we have to convert server Name to . a dot ted -name 
// IP address for this to work, since GetPeerName only returns dotted-name 
// ip addresses, not the local . host . com- style name we may be looking for. 
// Also, there may be more than one local . host . com- s tyle name for 
// a given server. 

// Also, certain types of cluster technologies for servers work by 

// mapping a given local.host.com to different IP addresses in a round-robin 

// fashion, etc. 

// Ergo, it sounds like we need our own identification mechanism, this 
// stuff about relying on either the IP address or the domain name 
// is a temporary hack. 

const CPtrArray * p_conns = Get AllConnect ionSta tes ( ) ; 
assert (("Bad internal pointer p_conns " , p_conns != NULL) ) ; 
int connect ionCount = p_conns - >GetSi ze ( ) ; 
for (int idx = 0; idx < connect ionCount ; idx++ ) 
{ 

/* 

CString thi sServerName 

( (AtpConnection* ) (pconns- >GetAt (idx) ) ) - >peer_address ; 
// see if ip address 

if (inet_addr (serverName) != I NADDR_NONE && 
serverName == thi sServerName ) 
return TRUE; 
// see if real name 

hostent *info = ge t host byname ( serverName ) ; 
for (int i = O; inf o- >h_addr_list [i] ; i++) { 
in_addr addr; 

addr . S_un . S_addr = *( long* ) inf o- >h_addr_list [i] ,- 
if ( inet_ntoa (addr) == thi sServerName ) 
return TRUE; 

} 

*/ 

if (provider [ " ProviderName" ] == 

3 
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( (AtpConnection*) (p_conns - >GetAt (idx) ) ) - >provider [ " ProviderName " ] ) 
return TRUE; 
} 

return FALSE ; 

} 



BOOL SocketControl : : ConnectToServer (AtpAttrib provider) { 
Threadlnfo *info = new ThreadlnfoO ; 
info->me = this; 

info->sock = INVALID_SOCKET ; 
info->host = provider [" Serve r Name " ] ; 

info->port = ATP SERVER PORT ; 

info- >provider = provider; 
info->idf = NULL; 

StartSocketThread (inf o) ; 

return TRUE; 



BOOL SocketControl : : ConnectToServer Anon (IDFile *idf) { 
AtpAttrib arg; 
idf - >GetAttributes (arg) ; 

CString server = arg [ATP ARG SERVER] ; 

UINT port ; 
try { 

port = AtpAttrib : : Parselnt (arg [ATP ARG PORT] ) ; 

} catch (FormatExcepbion ex) { 
ex ; 

port = ATP_ANON SERVER PORT ; 

} 

Threadlnfo * info = new ThreadlnfoO ; 
info->me = this; 

info->sock = INVALID_SOCKET ; 
info->host = server; 
info->port = port ; 
info->idf = idf; 

StartSocketThread ( inf o) ; 



return TRUE ,- 



>id SocketControl :: StartSocketThread (LPVOID pParam) { 
CWinThread *thread = Af xBeginThread ( mitSocketThread, pParam, 

m_def aultThreadPriority , 0, 

CREATE SUSPENDED) ; 

thread- >m_bAutoDelete = FALSE; 
m_threads . Add (thread) ; 
thread- >ResumeThread ( ) ; 



UINT SocketControl =: InitSocketThread (LPVOID pParam) { 
Threadlnfo *info = (Threadlnfo *) pParam; 

if (info->sock == INVALID_SOCKET) 

info->sock = Socke tConnectTo ( inf o- >hos t , info->port); 
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if (in£o->sock == INVALID_SOCKET) 
return 1 ; 

AtpClientSocket csock ( info - >me- >ra_idf s , info->me); 

assert (csock . Attach ( info- >sock) ) ,- 

info- >me- >Modif ySocketLi s t (csock, TRUE) ; 

info- >me- >RunClientSocket (csock, inf o- >provider , inf o- >idf ) ,- 
info- >me->ModifySocketList (csock, FALSE) ,- 
delete info; 

return O ; 

} 

void SocketControl : : RunCl ientSocket ( AtpClientSocket& csock, AtpAttrib& provider, 

IDFile *idf) { 

CSingleLock lock ( &m_mutex ) ; 
lock . Lock ( ) ,- 

int new_uid = uid_max++ ; 
lock . Unlock ( ) ,- 

csock . InitObserver (new_uid, this) ; 
try { 

if (idf) { 

csock . RunAnon ( idf , AtpAttrib: : Parselnt (m_conf igVals [ " ProtocolBlockS i ze " ] ) ) ; 

} 

else { 

AtpAttrib providers ; 

providers . PairseLine (m_conf igVals [ " Providers " ] ) ; 

csock . Run (providers , AtpAttrib : : Parselnt ( m_conf igVals [ " ProtocolBlockS ize " ] ) ) 

} 

} catch (AtpAuthenticationException ex) { 
ex ; 

AfxMessageBox ( "Cannot authenticate, to server" ) ; 

} 

catch (CMyException ex) 
{ 

ex ; 

} 

} 

void SocketControl : : ModifySocketList (CSockett sock, BOOL add) { 
CSingleLock lock (&m_sockmutex) ; 
lock . Lock ( ) ; 
if (add) 

m_sockets . Add (&sock) ,- 
else 

for (int i = 0 ; i < m_sockets . GetSize ( ) ; i++) 
if (m_sockets [i] == &sock) { 
m_sockets . RemoveAt (i) ; 

i - - ; 
} 

lock. Unlock ( ) ; 

} 

// JRW: Return state reference for a given connection: 
// IN: uid: id of the connection 
'// OUT: conn: AtpConnect ion reference 

BOOL SocketControl : •. GetConnect ionState (long uid, AtpConnect ion* & conn) { 
CSingleLock lock ( &m_mutex ) ; 
lock . Lock { ) ,- 
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BOOL, found = FALSE; 

int size = m_conns.GetSize() ; 

for (int i = 0; i < size; i++) { 

AtpConnect ion *mconn = (AtpConnection *) m_conns[i] ; 
if (mconn- >uid == uid) { 
conn = mconn ; 
found = TRUE; 

} 

} 

lock . Unlock ( ) ,- 
return found; 



// JRW: Return pointer to array of all connections. 

const CPtrArray* Socke tCont rol : : GetAl IConnect ionStates ( } { 
return tm_conns ; 



SocketTraf f ic SocketControl : : GetSocketTraf f ic ( ) { 
CSingleLock lock ( &m_mutex) ; 
lock . Lock ( ) ,- 

SocketTraf fic traffic = m_oldtraf f ic ,- 
int size = m_conns . GetSi ze ( ) ; 
for (int i = O; i < size; i++) 

traffic += *( (AtpConnection *) m_conns [ i ] ) - >traf f ic ,- 

lock . Unlock { ) ; 
return traffic; 

} 

void SocketControl :: ProcessConnectionState (const AtpConnect iont conn) { 
if (conn. state == AtpConnection CONNECTING j| 
conn. state == AtpConnection: : CLOSING) { 
CSingleLock lock ( &m_mutex ) ; 
lock . Lock ( ) ; 
switch (conn. state) { 
case AtpConnection: : CONNECTING: 
m_conns . Add ( (void * ) &conn) ; 
break ; 

case AtpConnection :: CLOSING : 

for (int i = 0; i < m_conns . GetSize ( ) ,• i + + ) 
if ({ (AtpConnection* ) m_conns [i] ) ->uid == conn. uid) { 

m_conns . Remove At ( i ) ; 

m_oldtraffic +== *conn . traffic ; 

break ; 

} 

break ; 

} 

lock. Unlock () ; 

Y 

if (m_pPCB) m_pPCB- >ProcessConnectionState (conn) ; 

} 

// JRW 961127 

// This implementation uses a Set/Get model for implementing 

6 
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// RequestTransfer, rather than a callback function -- 

// for the moment, it looks like we don't need the generality, 

// and this is dumb and easy. 

long SocketControl :: RequestTransfer ( long size) 
{ 

(VOID *) size,- 

return m__request Value ; 

} 

void SocketControl :: SetRequestTransf er ( long reques tvalue ) 
{ 

m_re quest Value = reques tValue ; 

} 

void SocketControl :: Set ProtocolThreadPr iori ty (int iPriority) // Set it to this. 

{ 

ra_defaultThreadPriority = iPriority,- 

for (int i = 0 ,- i < m_threads . GetSize ( ) ,- i + + ) { 
DWORD retval; 

CWinThread * thread = (CWinThread * ) m_threads [ i ] ,- 
// see if still active 

if ( IGetExi tCodeThread ( thread- >ra_hThread, fcretval) || 
retval != STILL_ACTIVE) { 

m_threads - RemOVeAt ( i ) ; 

delete thread; 

continue ; 

} 

thread- >SetThreadPriority (iPriority) ,- 

} 

} 

int SocketControl GetThreadPriority ( ) // Read from OS. 
{ 

return m_def aul tThreadPr ior i ty ; // Read from OS, not this.. 

} 



// End of code 

tfifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: Client Protocol 

$Workfile: SocketCont rol . cpp $ 

$Author : Ttonchev $ 

$Revision: 17 $ 

$Date: 2/03/97 l:03p $ 

$Modtime: 2/03/97 1 : 03p $ 

$History: SocketControl . cpp $ 

* ***************** Version 17 **************** ^ 

* User: Ttonchev Date: 2/03/97 Time: 1 : 03p 

* Updated in $/atp/Client Protocol 
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* added some 

* ***************** version 16 ***************** ' : 

* User: Ttonchev Date: 1/31/97 Time: 2:50p 

* Updated in $/atp/Client Protocol 

* made socket connection asynchronous, so that blocking of the main 

* thread is avoided 

* ***************** Version 15 ***************** 

* User: Ttonchev Date: 1/31/97 Time: 1 : 04p 

* Updated in $/atp/ClientProtocol 

* Added restart of Smart load connections 

* ***************** Version 14 ***************** 

* User: Jrward Date: 1/27/97 Time: 12 : 08p 

* Updated in $ /atp/Client Protocol 

* Added VSS history stuff, 
tfendif // SOURC E_CONTROL_BLOCK 
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// 

// C+ + header file 
// (c) 1996 ACS 
// 

// JRW 961216 m_c 



ifigVals added, 



so we can pass xfer block size- 



ftifndef _SOCKETCONTROL_H_ 
define _SOCKETCONTROL_H_ 



# include 
^include 
# include 
iinclude 
# include 
^include 
^include 
tf include 



"stdafx . h" 
" afxmt . h" 
"callback: . h" 
" lstnsock . h" 
"atpsock. h" 
" idf server . h" 
"atpclient .h" 
" AtpAt trib . h" 



const ATP_PORT = 608; 

const ATP SERVER PORT = 609; 

const AT P ANON S E R VE R PORT = 



class SocketControl 
public 



public ISockCallback, public lAtpCallback 
lAtpStateCallback, public iAtpProgressCallbc 



^^SocketControl (AtpAttrib & configVals) ; 
• virtual -SocketControl { ) ; 

""virtual void ProcessPendingAccept (CAsyncSocket *sock) ; 
//virtual void ProcessClose ( CAsyncSocket *sock); 

virtual BOOL, GetConnect ionState ( long uid AtpConnect ion* & conn) 
virtual const CPtrArray* GetAl IConnect lonStates () ; 
virtual SocketTraf f ic GetSocketTraf f ic ( ) ; 



BOOL, initialize (IDFServer *idfs, lAtpProgr 
void PollServers (AtpAttrib providers); 
BOOL, ConnectToServerAnonllDFile *idf) ; 
BOOL ConnectToServer (AtpAttrib provider); 
void CloseConnections ( ) ; 



ssCallback *pPCB) , 



virtual void Processconnectionstate (const AtpConnect ion & conn), 



private -. 

struct Threadlnfo { 
SocketControl* me; 
SOCKET sock ; 
CString host; 
UINT port ; 
AtpAttrib provider ; 
IDFile *idf; 

}; 



void SbartSocketThreadfLPVOID pParam) ; 
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void Modif ySocketList (CSocket& sock, BOOL add) ; 
// JRW 961127 

// This is the dumb and simple implementation, without really 
// using the generality of a callback, 
public : 

virtual long RequestTransf er ( long size) ,- 

virtual void SetReques tTransf er { long reques tValue ) ,- 

virtual void Set ProtocolThreadPr ior i ty ( int iPriority) ; // Set it to thi 
virtual int GetThreadPriori ty { ) ,- // Read from OS. 



private: 

BOOL ServerConnectionAl ready { AtpAt t r ib provider) ; 



private : 

AtpAttrib & m_conf igVals 



// JRW Reference to global settings . 



IDFServer *m_idfs; 
IAtpProgressCal lback *m_pPCB,- 

CListeningSocket *m_l sock ; 
CPtrArray m_conns ,- 

AtpConnUID uid_max; 
SocketTraffic m_oidtraf f ic ; 

CMutex m_mutex, m_sockmutex; 

CPtrArray m_threads , m_sockets; 

// JRW 961127 

long m_requestv'alue ; 

int ra_defaultThreadPriority; 

}; 

ftendif // _SOCKETCONTROL_H_ 
// End of headers 



#ifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client /Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 
SUBSYSTEM: E-parcel . com 
$Workfile: SocketControl.h $ 
$Author: Ttonchev $ 
$Revision: 13 $ 
J?Date: 1/31/97 2 : 50p $ 
$Modtime: 1/31/97 2:19p $ 

$History: SocketControl.h $ 

* ***************** Version 13 ********** 
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m 



p 
m 



m 



User: Ttonchev Date: 1/31/97 Time: 2 : 50p 

Updated in $/atp/ Include 

made socket connection asynchronous, so that blocking of the main 
thread is avoided 



***************** Version 12 * 
User: Ttonchev Date: 1/31/97 

Updated in $/atp/Include 

Added restart of Smart load connections 



Time : 1 : 04p 



***************** Version 11 ** 
User: Jrward Date: 1/30/97 

Updated in $/atp/lnclude 
changed port for SL server to 610 (from 609) 



Time : 12 : 42p 



m 



***************** Version 10 ** 
User: Jrward Date: 1/27/97 

Updated in $/atp/Include 
Added VSS history stuff, 
pendif // SOURCE_CONTROL_BLOCK 
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// ClientApp . cpp : Defines the class behaviors for the application. 

((include "stdafx.h" 
((include "stdlib.h" 
((include <assert.h> 

((include "winnls.h" 

((include "utility. h" 
((include "atpattrib. h" 
((include " a tpexcept . h " 

((include "ClientApp . h" 
((include "ClientAppDlg.h" 
((include " SmartLoad . h " 
((include "packfile.h" 
tt include " DbgConf igDlg.h" 
((include "TextDisplayDlg . h" 

((include " PropertyPageDial Automat ical ly .h" 
((include " Property PageFirewa 1 1 . h" 
((include " Proper tyPage InternetConnect ion . h" 
((include " PropertyPage I PAssignraent . h" 
((include " PropertyPageProxylnf o . h" 
((include " PropertyPageRasScr ipt . li- 
ft if def DEBUG 

((define new DEBUG NEW 

#undef THIS FILE 

static char THIS_FILE[] = FILE ; 

((endif 

// So that different modules will report the same build date . . . 
CString g_ClientAppBuildDate ; 

// For debugging and testing only . . . 
BOOL g_bSimulateTransfer = FALSE; 

BOOL g_bSampleDisabled = FALSE; 

H INSTANCE CClient: : m_hRasApi3 2D1 1 ; 

//////////////////////////////////////////////.///////////// ////////////////// 
// CClient 

B E G I N M E S S AG E MA P (CClient , CWinApp) 

// { { AFX MSG MAP (CClient) 

// NOTE - the ClassWizard will add and remove mapping macros here. 
// DO NOT EDIT what you see in these blocks of generated code! 

// } }AFX_MSG 

ON_COMMAND ( ID HELP , CWinApp: :OnHelp) 

END_MESSAGE MAP ( ) ; 

///////////////////////////////////////////////////////////////////////////// 
// CClient construction 

CClient : : CClient ( ) : 

m_bRASAl r eadyAc t i ve (FALSE) , 
m_bSplashScreen (TRUE) 

{ 
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/ So that different modules will repor , 
/ (initialize here, not statically, so that we don't get a bogus 
// memory- leak message f 

TIME 



// TODO: add construction code here, 
// Place all significant initializat 



in Initlnstance 

the same build date 
ha 

the debugger . ) 

g _ClientAppBuildDate = " (Beta of " DATE — 

RAS was not installed so 



et RasApi32.dll, if not exists, 
as connection can not be made, 
if (NULL == m_hRasApi32Dll ) 

m_hRasApi32Dll = LoadLibrary ( "rasapi32 . dll " ) ; 

// This is just for convenience tracking down memory leaks 
the MS VC+ + debugger: 

fdef DEBUG 

nclude <crtdbg.h> 
long int dbgAlloc 



CrtSetBreakAlloc (dbgAllo 
ttendif // DEBUG 



D^^ux^.^ParcelService" 

theserver.e-parcel.com" // "199.103.208.230" // Theo ■ s ma 



//////////////// 7///////////////////// Y/////////////// 7////////////////////// 
// The one and only CClient object 

CClient theApp; 

// Server to connect to (temporary) 

♦♦define DEFAULT ATP PROVIDER 

♦♦define DEFAULT ATP SERVER 

ne via terra.net 

#define DEFAULT_ATP_PASSWORD "testing 

// Registry key names we use: 
// Note: 

// Probably at least some of our valu 
// .... have to figure this out later. 
// Note: 

// Normally these should be set up by .ns 

// Keyl Key2 are for full deletion: Windows95 deletes subkeys 

// automatically, but the documentation for windowsNT says you can't. 



es should go 



nto HKEY CURRENT USER : 



stall/uninstall . 



define COMPANY "EPARCEL 
♦♦define APPNAME "Client" 
♦♦define VERSION "970128" 
const char * g_Cl 



// Must be what Insta i IShield 
// <Company> <AppNa;tie> <Versio 



const 



Regis tration_Key = 

{ "Sof twareW" COMPANY "\\" APPNAME " 

Registration_Keyl={"Software\\" COMPANY "\\" APPNAME} ; 

Registration_Key2={ "Sof tware\\" COMPANY} ; 



\\" VERSION) ; 



const char 
// Returns ERROR_SUCCESS on success ... 
int WriteErrorLogValue (const char * ItemName, 



resultvalue) 



HACKassert ( "Bad ItemName pointer passed" 
HACKassert ("Bad resultvalue pointer pass 

HKEY hKey = NULL; 

DWORD keyDisposition; 



ItemName ! = NULL) ; 
d", resultvalue != NULL); 
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LONG Status; 

status = RegCreateKeyEx ( 
HKEY_LOCAL_MACHINE , 
g_C 1 i ent_Regi strati on_Key , 
0, 

null, 

reg_opt ion_non_volat i le , 
key all access , 

NULL, 
&hKey, 

tkeyDisposition) ,- 
if (status != ERROR_SUCCESS) 
{ 

Set Last Error (status ) ; 
HACKassert ( "Error on RegCreateKeyEx 
return status ; 



// open key 
/ / subkey 
// reserved 

// address of class string 

// options flag 

// security access 

// key security structure 

// opened handle 

// disposition value 



Status == ERROR_SUCCESS) ; 



if ( ( 



v keyDisposition != REG CREATED NEW_KEY ) && 

(keyDisposition != REG OPENED EXISTING KEY) ) 



{ 

Status = ERROR INVALI D DATA ; 

SetLastError (status) ; rT , DO _ D pnrrFq n, . 

HACKassert ("Bad disposition code on RegCreateKeyEx" , status == ERROR_SUCCESS) , 
return status; 
} 

cstring quotedValue = AtpAtt rib :: Quotes tring ( resul tValue ) ,- 
status = RegSetValueEx ( 
hKey , 

(char *) (const char *)ItemName, 
NULL, 

// type 

*) quotedValue, // dataValue 

// buffer size needed 



// open key 
// which item 
// reserved 



REG_SZ, 

(CONST BYTE *) (const char 
strlen (quotedValue) +1) ; 
if (status != ERROR_SUCCESS) 



{ 

SetLastError (status ) ; 
HACKassert ("Cannot set registry value " , status == ERROR_SUCCESS) ; 
return status,- 
} 

status = RegCloseKey (hKey) ; 
hKey = NULL; 
if (status != 
{ 

SetLastError (status) ,- 
HACKassert ("Cannot close hKey handle ", status 
return status; 
} 

return status ; 



ERROR_SUCCESS ) 



ERROR_SUCCESS) ; 



WriteErrorLog (const char * ItemName, const char * resultValue) 

CTime currentTime = CTime -. : Get CurrentTime ( ) ; 
CString stime = currentTime . Format (" %#c ") ; 

int status = WriteErrorLogValue ( "LastErrorLogTime" , stxme) ; 
if (status != ERROR_SUCCESS) 

return status; 
return WriteErrorLogValue ( I temName , resultValue); 
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// Show usage in a message box 

// Note: Should put strings into resource file . . . 

VOID CClient : : ShowHowToUse 

(const char * msg, const char * BadCommandLinePart ) 

{ 

HACKassert ( "Bad msg pointer passed", msg != NULL) ; 

HACKassert ( "Bad BadCommandLinePart passed", BadCommandLinePart != NULL) ; 
CString message ,- 

if (CString (BadCommandLinePart ) == "") 

message = " RTFM , Jocko . . .\n" + CString (msg) + "\n"; 
else { 

message = CString ("Bad command line : \n Try again ! \n ") 
+ CString (msg) 

+ CString ( 11 \n Bad part: ") 
+ CString (BadCommandLinePart ) 
+ CString (" \n" ) ,- 

} 

AtpAttrib default Values = Get FactoryDef aultValues ( ) ,- 
CString tmp = def aultValues . UnparseLine (" \n" ) ; 
message += 

"Special use:\n" 
" \ t /LoadReque s t \n " 
" \t@<f ilename>\n" 
" \t/AskConf iguration\n" 
"DEBUGGING USE ONLY : \n" 
" \t /SimulateTransf er\n" 
" \t/SampleDisabled\n " 
" \t /ShowValues\n" 
" \t/WriteValues\n" 
"\t/Reset Values \n" 
" \ t /Clear-Values \n " 
"\t/NoSplash\n" 
" \t/DebugBreak\n" 
"\t/Quit\n" 

"Factory defaults :\n" + 
tmp + 
"\n" 

"Hope this helps ! " ; 

// Note: maybe no application window, so just pass "NULL". 

: : Me s sageBox ( NULL , (char *) (const char *) message, "Usage instructions 
MB OK | MB I CONEXCLAMAT ION ) ; 

BOOL CClient : : ValidBoolean (CString & sBoolean) 
{ 

if ((sBoolean == "TRUE") || 
(sBoolean == "YES")) 
return TRUE; 
if {(sBoolean == "FALSE") |) 
(sBoolean == "NO")) 
return TRUE; 
return FALSE; 
} 

Insanity checks on RAS entry names: return FALSE if looks bogus. 
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BOOL. CClient :: ValidRASScriptName (CString & RASScriptName) 

if (AtpAttrib: : ParseBool (m_conf igVals [ "ConnectionPertnanent " ] ) ) 

return TRUE; // Direct connection, not dialup. 

if ('AtpAttrib: : ParseBool (m_conf igVals [ " DialAutomat ically " ] ) ) 

return TRUE; // No auto-dial, won't be dialing up ourselves. 

// XXX Need" to validate against actual RAS entries . . . 
int idx = RASScriptName . GetLength () ; 
if (idx < 2) 

return FALSE ; 
if (idx > 24) 

return FALSE; 
return TRUE ; 
} 

// validity checks on serial numbers: return FALSE if looks bogus. 

// XXX Note: serial number of " 0 " will be to indicate we do registration on 

// first connection to client (not implemented yet). 

BOOL CClient : :ValidSerial (CString & serialNumber ) 
{ 

if (serialNumber == " 0 " ) 
return TRUE; 

int idx = serialNumber . GetLength () ; 
if (idx < 2) 

return FALSE ; 

// Secret "checksum": first two digits and last two digits must be "42". 
// (With apologies to Douglass P. Adams) 



if (serialNumber [0] != 

return FALSE; 
if (serialNumber [1] != 

return FALSE; 
if (serialNumber [idx-2] 

return FALSE ,- 
if ( serialNumber [idx- 1] 

return FALSE; 

if (idx > 24) 

return FALSE; 



' 4 • ) 
•2 ■ ) 

! = ' 4 ' ) 

! = ' 2 ' ) 

// Too long. 



idx 



idx- - ) 



for (idx- 

if (! isdigit (serialNumber [idx] ) ) 
return FALSE; 

} 

return TRUE ; 
} 

// Return FALSE if it looks bogus ... 

BOOL CClient : : Val idSampleTime (CString & sampleTime) 
int idx = sampleTime .GetLength {) ; 



if (idx < 1) 

return FALSE; 
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for (idx--,- idx >= 0; idx--) 
{ 

if ( ! isdigit (sampleTime [idx] ) ) 
return FALSE; 

} 

int nMilliseconds = -1; 

sscanf {(const char *) sampleTime, "%u", Milliseconds) ; 

if (nMilliseconds < 1000) 

return (FALSE) ; 
if (nMilliseconds > 60000) 

return (FALSE) ; 

return TRUE; 
} 

BOOL CClient : : ValidClient PollingPeriod (CString & clientPollingPeriod) 

int idx = clientPollingPeriod. GetLength () ; 
if (idx < 1) 

return FALSE; 

for (idx--; idx >= O; idx--) 

if ( ! isdigit (clientPollingPeriod [idx] ) ) 
return FALSE; 

} 

int nSeconds = - 1 ; 

sscanf ((const char *) clientPollingPeriod, "%u", &nSeconds); 

if (nSeconds == 0) 

return TRUE; // Special case, no client polling, 

if (nSeconds == 15) 

return TRUE; // Special case for debugging and testing 

if (nSeconds < 10*60) // Minimum, 10 minutes. 

return (FALSE) ; 
if (nSeconds > 12*60*60) // Maximum, 12 hours. 

return (FALSE) ; 

return TRUE; 
} 

BOOL CClient :: ValidSampleCount (CString & sampleCount) 

int idx = sampleCount . GetLength () ; 
if (idx < 1) 

return FALSE; 

for (idx--; idx >= O; idx--) 

if (! isdigit (sampleCount [idx] ) ) 
return FALSE; 

} 

int nPeriods = - 1 ; 

sscanf ((const char *) sampleCount, "%u", fcnPenods); 

if (nPeriods < 3) 

return (FALSE) ; 
if (nPeriods > 15) 
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return (FALSE) ; 

return TRUE; 
} 

// insanity checks on phone numbers return FALSE if looks bogus^ 
// nSte We don't always need a phone number, which is why we need 
// the default here . . . 

BOOL CClient : : ValidRASPhoneNuraber (CString & phoneNumber) 
{ 

int idx = phoneNumber .GetLengthO ; 
if (idx < 2) 

return FALSE; 
if (idx > 24) 

return FALSE; 
for (idx--; idx >= 0; idx--) 

if ( ! isdigit (phoneNumber [idx] ) ) 
return FALSE; 

} 

return TRUE ; 
} 

BOOL CClient : : invalidConf igurationValue (const char * name) 

^ ShowHowToUse ("Invalid configuration value 

CString(name) + "=" + m_conf igVals [name] ) ; 
return FALSE; 

} 

VOID CClient: : SetSeriallnstallationDate (AtpAttrib U configVals, CTitr 
CString & textString) 



configVals [ "Serial Inst allYear" ] 
configVals [" Serial Ins tal IMonth " ] 
configVals [ " Serial Ins tal IDay " J 
configVals [ "SeriallnstallHour" ] 
configVals ["SeriallnstallMinute" ] 
configVals [" Serial Ins tal lSecond" ] 



= AtpAttrib-. rUnparselnt (t .GetYearO ) ; 
= AtpAttrib: :UnparseInt (t . GetMonth ( ) ) ; 
= AtpAttrib: :UnparseInt (t .GetDay ( ) ) ; 
= AtpAttrib : :UnparseInt (t . GetHour () ) ; 
= AtpAttrib : :UnparseInt (t . GetMinute ( ) ) 
= AtpAttrib: :UnparseInt {t .GetSecond ( ) ) 



textString 



VOID CClient: :GetSe: 

CString & textString) 



configVals [ " Serial InstallYear ] 
configVals [" Serial InstallMonth" ] 
configVals [ " Serial Ins tal IDay " ] 
configVals ["SeriallnstallHour" ] 
configVals ["SeriallnstallMinute"] 
configVals [ " SeriallnstallSecond" ] ; 



riallnstallationDate (AtpAttrib & configVals, CTime 



AtpAttrib: :Parselnt (configVals ["SerxallnstallYear, 
AtpAttrib: : Parselnt (configVals [" Serial Ins tal IMonth ] > , 
AtpAttrib: =Parsemt (configVals [ " SeriallnstallDay , 
AtpAttrib: : Parselnt (configVals ["SeriallnstallHour"] ) , 
AtpAttrib- :Parsemt (configVals [" Serial Ins tal IMmute 
AtpAttrib: : Parselnt (conf igVals ["SeriallnstallSecond"])); 
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textstring = conf igVal s [ ■• Serial Instal lYear"] - 
textstring conf igVals [ " SeriallnstallMonth" ] 

conf igvals ["SeriallnstallDay"] 
conf igVals [ "SeriallnstallHour" ] 
conf igvals [» Serial Ins tal IMinute » ] 
conf igvals ["SeriallnstallSecond"] * 

} 

BOOL. cClient : : DoCommandLine ( ) 

// Pick up some defaults - ■ • 

m configvals - GetFactoryDefaultVa ues , 

citring tmp = m_conf igVals . UnparseLme ( ) ; // TEMP 

// Read saved values from registry, if any. 

i_conf igvals. ParseRegistry Cg_Client_Registrat ion_Key ) ; 

) 

catch (FormatExcept 



ex; 



} 



tmp 



L configVal S -UnparseLine() ; // TEMP DEBUG 



// For debugging in" the field, Keep track of what's up .... 
int status = ERROR_SUCCESS ; 

staC us = WriteErrorLo g (''Last = andLine^ J ,,7 Sl! E RROR FILE NOT — FOUND) ) ; 

HACKassertC'BadValue", ( S tatus==ERROR_SUCCESS) | I (stat 

„ OK, no. that „e nave gotten the c current con I :igur at io^alues , ^ 

CString CommandLine = m_lr>CmdLine ; 

'/, ^."^l"^" — »l»»PP^a— i„e. 

// not this horse-hockey •-■ 

CString parseChar; // First character, cc check for special flags. 
( - SLI a f item on command line. 

CString token; // First item 

• int idx = 0; 

int inext = 0; 
f or ( ; ; ) 

CommandLin8.TrimL.eft ( ) ; 
CommandLine . TrimRight { ) ; 
token = " " ; 
// Empty line ... 

if (CommandLine == > 

break; //All done. 

// xxx Not smart about embedded space s yet ^ whit espace. 
• // Should scan until quote parity is zero, 

inext = CommandLine.FindOneOf (" \t\r\n"); 
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if (inext == -1) 
{ 

token = CommandLine; // ... the last bit of the command line 

ComraandLine = " " ,- 

} 

else{ 

token = CommandLine .Mid (O, inext) ; 
CommandLine = CommandLine . Mid ( inext ) ,- 
) 

// Get flag character: ? / @ 

parseChar = token [0] ,- 
// Check for "?" 

if (parseChar == " ? " ) 
{ 

ShowHowToUseC'So you want to know?","") ; 

return FALSE; 

} 

// Check for "@" . . . 

if {parseChar == "@" ) // Read stuff from a file here ... 

{ 

token = token. Mid (1) ; 
CString dataString ,- 

ReadFilelntoString (token, dataString) ; // Need error check ... 

CommandLine = dataString + CommandLine; 

continue; 

} 

// Check for "/" 

if (parseChar == "/") // Special processing flag ... 

{ 

CString upperToken = token; 
upperToken . MakeUpper ( ) ,- 

if (upperToken == " /SHOWVALUES " ) 

ShowRegistrationValues ( ) ; 
else if (upperToken == " /ASKCONFIGURATION" ) 

RunConf igurat ionWi zard ( ) ; 
else if (upperToken == " /NOSPLASH" ) 

m_bSplashScreen = FALSE ; 
else if (upperToken == " / CLEARVALUES " ) 

m_conf igVals . RemoveAll ( ) ,- 
else if (upperToken == " /LOADREQUEST" ) 

{ // For convenience, this same . exe file also 

SubmitSmartLoadRequest (m_conf igVals , CommandLine ) ,- 

return FALSE // the helper-app for a web-browser 

} 

else if (upperToken == " / RES ETVALUES " ) 

m_conf igVals = GetFactoryDef aul t values () ; 
else if (upperToken == "/DEBUGBREAK" ) 

DebugBreak ( ) ; 
else if (upperToken == " /WRITE VALUES " ) 

mconf igVals . UnparseRegistry ( g_C 1 ient_Regi s t rat i on_Key ) ; 
else if (upperToken == " / DELETEVALUES " ) 

DeleteRegistrationValues ( ) ; 
else if (upperToken == " /QUIT" ) 

return FALSE; 
// These are debugging/test hacks only . . . 

else if (upperToken == " /SIMULATETRANSFER" ) 

g_bSimulateTransf er = TRUE ; 
else if (upperToken == " / SAMPLEDI SABLED ■' ) 
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g_bSampleDisabled = TRUE; 

else 

{ 

ShowHowToUs e 

("Invalid, command line flag", 

token + " " + CominandLine) ,- 

return FALSE; 
} 

} 

// Something to parse . . . 
try { 

m_conf igVals . ParseLine (token) ; 
} catch ( Format Except ion ex) { 

HACKassert ( "Bad command line value", TRUE) ; 

MessageBox (NULL, CString (" Cannot parse command line argument : ") + 
token, "Command line error", MB OK) ; 

} 

} 

// Sanity checks on some values . . . 

if ( ! ValidClientPollingPeriod (m_conf igVals [ 11 Client Pol 1 ingPeriod" ] ) ) 
return InvalidConf iguration Value ( "ClientPollingPeriod" ) ; 

if ( ! ValidSampleCount (m_conf igVals [ "SampleCount " ] ) ) :i 
return InvalidConf igurationValue ( "SampleCount " ) ; 

if ( ! ValidSampleTime (m_conf igVals [ " SampleTime " ] ) ) 

return InvalidConf igurationValue (" SampleTime " ) ,- 

if ( ! ValidSerial (m_conf igVals [ "Serial " ] ) ) 

return InvalidConf igurationValue ( "Serial " ) ; 

if ( ! ValidRASPhoneNumber (m_conf igVals [" RASPhoneNumber"] ) ) 
return InvalidConf igurationValue ( "RASPhoneNumber" ) ; 

if ( ! ValidRASScriptName (m_conf igVals [ " RASScr iptName " ] ) ) 
return InvalidConf igurationValue ( "RASScriptName" ) ; 

if ( ! ValidBoolean (m_conf igVals [ " StartHidden " ] ) ) 

return InvalidConf igurationValue (" StartHidden" ) ; 
if ( ! ValidBoolean (m_conf igVals L "ConnectionPerinanent " ] ) ) 

return InvalidConf igurationValue ( "Connect ionPermanent " ) ; 
if ( ! ValidBoolean (m_conf igVals ["Firewall "] ) ) 

return InvalidConf igurationValue (" Firewall " ) ; 
if ( ! ValidBoolean (m conf igVals ["IPPermanent"] ) ) 

return InvalidConf igurationValue ( "IPPermanent " ) ; 
if ( ! ValidBoolean (m_conf igVals [ "DialAutomat ically " ] ) ) 

return InvalidConf igurationValue ( "DialAutomatically" ) ; 
return TRUE; 

} 

AtpAttrib CClient : : GetFactoryDef aultValues ( ) 
{ 

AtpAttrib def aultValues j ; 
~ def aultValues . RemoveAll () ; // Make sure it is empty. 
// Values just for diddling this dialog . . . 

def aultValues [ "StartHidden" ] = "FALSE"; 

// How we adjust this is not figured out yet . . . 

def aultValues ["ClientPollingPeriod"] = "1800";// 30 minutes (second! 
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// Values set in the CConf igurat ionDialog 
defaultvalues [ " DialAutomatically" ) 
defaultvalues ["Firewall"] 
defaultvalues [ " I PPerraanent "] 
def aul tValues [ " Connect ionPermanent " ] 
defaultvalues ["TCPProxy" ] 
defaultvalues [ "TCPProxyPortNumber" ] 
defaultvalues ["ServerName"] 
defaultvalues [ "RASScriptName"] 

// XXX Not needed? Part of RAS script? 
defaultvalues [ " RAS Phone Number " ] 
defaultvalues [ " RASUserName " ] 
defaultvalues [ "RASPassword " ] 



// Serial number stuff, inst 
// Note: "Serial" is what Ir 
defaultvalues ["Serial"] 



allation date 
stallShield us 



" FALSE" 
" FALSE" 
"FALSE" 
"FALSE" 



DE FAULT AT P S ERVER ; 

" <undef ined> " ; 



"7310793" ; 

"<bad user name > 

"unfalll" ; 



// Dummy, not installed 



CTime : : GetCurrentTime ( ) ; 



CString debugString ,- 



// For debugging. 



SetSeriallnstallationDate (defaultvalues , 
defaultvalues [ " SerialExpirat ionPeriod" ] 

// Performance threshhold parameters . . . 
defaultvalues [ " SampleMinimumTraf f ic " ] 
defaultvalues [ " SampleThreshholdLi tt le " ] 
defaultvalues [ " SampleThreshholdSome" ] 
defaultvalues [ : " SampleThreshholdLots " ] 
defaultvalues [ " SampleTime " ] 
defaultvalues [ " SampleCount " ] 

// Miscellaneous dialog parameters, etc. 

def aultvalues [ " StatusPeripd" ] = "1500" 

// Protocol parameters that are not always dynamic . 
def aultvalues [ " ProtocolBlockSize " ] - "2047" 



debugString) ; 
3 0"; / / 3 0 days . 



"300 
"80" 
"65" 



= "5000" 
= " 5 " ; 



// For dial-up. 



// Was 2000 (2 seconds) 
// Five samples. 



// 1.5 seconds. 

// Theo ' s default. 



AtpAttrib : rUnparselnt ( 3L*2 4L* 6 0L* 60L) ; 



lue 



// Added by Theo: 

defaultvalues [" idf_reclaim_time" ] 

// This needs to be something other than the temp directory 

// this is just what Theo uses while debugging ... 

// The correct value is set up by our installation script 
char tempDir [2048] ; // Read TMP environment v 

DWORD status = GetTempPath (sizeof (tempDir) -5, tempDir); 

assert (status != 0 ) ,- 

assert (status < sizeof (tempDir) -5) ; 

CString dirName = CString ( tempDir ) + "idf"; // What Theo picked 
defaultvalues [ " IDF_DIRECTORY " ] = dirName; 

// Stuff for SmartLoad requests ... 

- dirName = CString ( tempDir) + "LoadRequestDir"; 

defaultvalues [ "LoadRequestDir" ] = dirName ; 

def aultvalues [ " LoadRequest Period"] = "300" 

dirName = CString ( tempDir ) + "LoadDeliveryDir" ; 



// 5 minutes (seconds) 
// default delivery dir. 
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default Values [ " LoadDe liveryDir" ] 



= dirName; 



// Added by Theo : 

AtpActrib provider, providers; 

provider [ " ProviderNarae" ] = D E FAULT AT P P RO V I D E R ; 

provider [ "ServerName " ] = DEFAULT ATP SERVER ; 

provider [ " ServerPassword" ] = DEFAULT ATP PASSWORD ; 

provider ["UserName" ] = "Hiroshi Kobata"; 
provider [ "UserPassword" ] = "another"; 

providers [DEFAULT ATP PROVIDER] = provider . UnparseLine ( } ; 



def aultvalues ["Provid 
return def aultvalues ; 



"] 



providers . UnparseLine ( ) ; 



VOID CClient: : DeleteRegistrationValues ( ) 
{ 

LONG status; 



status = RegDeleteKey ( 

HKEY LOCAL MACH I N E , 

g_Client_Registration_Key ) ; 
if (status != ERROR__SUCCESS) 



// open key 
// subkey 



SetLastError (status) ; 
HACKassert ( "Error on RegDeleteKey" , status == ERROR_SUCCESS) ; 
} 

status = RegDeleteKey ( 

HKEY LOCAL MACHINE , 

Registrat ion_Keyl ) ; 
if (status != ERROR_SUCCESS) 
{ 

SetLastError ( status ) ,• 
HACKassert ( "Error on RegDeleteKey" 
} 

status = RegDeleteKey ( 

HKEY LOCAL_MACHINE , 

Registration_Key2 ) ,- 
if (status != ERROR_SUCCE3S) 
{ 

SetLastError ( status ) ,• 
HACKassert { "Error on RegDeleteKey" 



// open key 
// subkey 



Status == ERROR_SUCCESS) ; 



// open key 
// subkey 



ERROR_SUCCESS) ; 



} 



// Uses a file mapping to see whether we are already running . . . 
// From Microsoft Knowledge Base article "Allowing Only One 
// Application Instance on Win32s" Q123134, Dec '95. 

const char * CLIENT APP NAME = " CI ient AppNameDummy Fi le " ; 

BOOL AppAl ready Running (const char * appName) 
{ ' 

HANDLE hMapping = CreateFileMapping 

(HANDLE (Oxfffff fff) , // Special handle for swap-file 

NULL , // Security attributes. 
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PAGE READONLY 

0 , 
32 , 

appName) ; 

if (hMapping == NULL ) 
{ 

HACKassert ( "Cannot create file mapping", hMapping != NULL) ,- 
return FALSE; 
} 

if (GetLastErrorO == ERROR ALREADY EX I STS ) 

return TRUE; 
return FALSE; 

} 

VOID CClient: : ShowRegistrat ionValues ( ) 
{ 

CTextDisplayDlg textDisplayDlg (m_conf lgVals , 

"Current registration values ..."); 
textDisplayDlg . DoModal ( ) ; 

} 

///////////////////////////////////////////////////////////////////////////// 
// CClient initialization 

BOOL CClient :: Initlnstance ( ) 

^ // CG: This line was added by the OLE Control Containment component 
Af xEnableControlContainer ( ) ; 

// For debugging / testing use only! 
g_bSimulateTransfer = FALSE; 

// Check command line now: 

// doing it before " AppAl re ady Running " is so we can use the command line 
// to force registry values to be set, for debugging. 

if ( ! DoCommandLine ( ) ) 
return FALSE ; 

// If an instance of the client is already running, just exit. 

if { AppAl ready Running ( CLIENT APP NAME ) ) 

return FALSE; 

// If "special" serial number, serial number still needs to be set . . . 

if (m_conf igVals ["Serial"] =--= "0") 

char message □ = "Serial number not set yet:\n" 

" ... code to handle this still needed." 

r : MessageBox (NULL, message 
MB OK | MB 

return FALSE; 
} 

/ / Verify that we have a valid serial number . . . 
if { 'ValidSerial (m_conf igVals ["Serial"] ) || 

(m_conf igVals ["Serial"] == "0")) 

13 



// File protection 

// Max size, high-order part. 

// Max size, low-order part. 

// File name. 



, "E-Parcel tm Registration Message", 
_ICONEXCLAMATION) ; 
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char message [] = "Your E-Parcel tm client application does not " 

"appear to be installed properly." 
"\n\n" 

"Please be sure that you have installed the " 
"software correctly, and that you have " 
"properly entered the serial number " 
"that was sent to you with the installation " 

"\n\n" 

"The E- Parcel tm client application will now exxt . 
: :MessageBox (NULL, message, "E-Parcel tm Registration Message", 

MB OK | MB_ICONEXCLAMATION) ; 

return FALSE; 
} 

// Check: expiration date . . . 

CTime currentTime = CTime r : GetCurrentTime ( ) ; 
CTime installTime ,- 
CString textString; 

GetSeriallnstallationDate (m_conf igVals, installTime, textStrmg) ; 
CTimeSpan elapsedTime = currentTime - installTime; 

int maxDays = AtpAt t rib = = Parselnt (m_conf igVal s [ " Ser i alExpirat ionPeriod " ] ) ,- 
if (elapsedTime .'GetDays ( ) > maxDays) 

CString message = "Your E-Parcel tm client application " 

"appears to be an evaluation copy which has " 
"expired . \n\n" 

"This copy was apparently installed on " + 

textstring + 

"\n\n" 

"Please contact E-Parcel for a newer version." 
"\n\n" 

"The E-Parcel tm client application will now exit. 

: :MessageBox (NULL, message, "E-Parcel tm Registration Message", 
MB OK | MB ICONEXCLAMATION ) ; 

return FALSE; 
} 

// Standard initialization 

//If you are not using these features and wish to reduce the size 
// of your final executable, you should remove from the following 
// the specific initialization routines you do not need. 

// JRW 

// Compute a few things from the settings we have, such 
// as whether we can do a ClientPoll, etc. ... 
// XXX TBD 

#ifdef AFXDLL , « r~*T t 

' Enable3dControls<> ; // Call this when using MFC in a shared DLL 

fte E nable3dControlsStatic() ; // Call this when linking to MFC statically 
ffendif 
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ttdefine HAND CODED SPLASH 

fjifdef HAND CODE D_S PLAS H 

if (m_bSplashScreen) 



splash . Create ( IDD_SPLASH) ) 



{ 

m_splash . SetSplashSize ( ) ; 
m_splash . ShowWindow (SW_SHOW) ; 
m_splash . UpdateWindow ( ) ; 
m_splash.SetTimer(l, 500, NULL); 
} 

m_dwSplashTime = : : GetCurrentTime ( ) ; 
} 

(fendif // HAND CODED SPLASH 

// Put initialization that can take a while her 
// Theo's initialization . . . 
if { ! Af xSocketlnit ( ) ) 
{ 

AfxMessageBox ( IDP_SOCKETS_INIT_FAILED) ; 
return FALSE; 



#ifdef HAND CODED SPLASH 

if (tn_bSplashScreen) 
{ 

while ((:: GetCurrentTime ( ) 
(m_splash.m_hWnd ! 
Sleep (100) ,• 
// timeout expired, destroy the splash 
if (m_splash . m_hWnd != NULL) 

m_splash . DestroyWindow ( ) ; 
//m_pMainWnd- >UpdateWindow { ) ; 
} 

(fendif // HAND CODED_SPLASH 



m_dwSplashTime < 2500) && 
NULL) ) 



CClientAppDlg dig (ra_conf igVals ) ; 
int nResponse = dig . DoModal ( ) ,- 
if (nResponse == IDOK) { 

// TODO : Place code here to handle 

// dismissed with OK 



when the dialog is 



} 

else if (nResponse == IDCANCEL) 
{ 

// Note: No "cancel" button in our dialog! ! ! So how could w 
// TODO: Place code here to handle when the dialog is 
// dismissed with Cancel 

} 



// Clean up our communications stuff . . . 

UndialRASConnectionAutomatically ( ) ; 

// Since the dialog has been closed, return FALSE so that we exit the 
// application, rather than start the application's message pump, 
return FALSE; 




RASCONNSTATE g_Di al S t at e ( RASCS_Di sconnec ted ) ,- // Track progress during dialing 
// Callback for RAS connection . . . 

VOID WINAPI RasDialFunc (UINT unMsg, RASCONNSTATE rasConnState , DWORD dwError) 
{ 

if (unMsg != WM RASDI ALE VENT ) 

{ 

CString msg; 

msg . Format ( "RasDialFunc callback function passed a message that\n" 
"wasn't WM_RASDIALEVENT : % Id " , long ( unMsg ) ) ; 
HACKassert (msg, unMsg = = WM_RASDI ALEVENT ) ,- 
} 

if (dwError) 
{ 

//only call the function when RAS is installed, 
if (CClient: : m_hRasApi32Dll ) 
{ 

PRasGetErrorString pRasGetErrorString ,■ 

pRasGet ErrorS t ring = ( PRasGetErrorString) GetProcAddress (CClient : : m_hRasApi3 2 Dl 
, " RasGetErrorString " ) ; 

if (pRasGetErrorString) 
{ 

char szBuf [4096] ,- 

if (pRasGetErrorString ( (UINT) dwError , (LPSTR) szBuf , sizeof ( szBuf )- 1 ) != 0) 

strcpy (szBuf , "Undefined RAS Callback Error" ) ; 
CString msg; 

msg . Format ( "RAS Callback error: %s: code %ld.",szBuf, (long) dwError), - 
HACKassert (msg, FALSE) ; 

} 

} 

} 

g_DialState = rasConnState; 

} 

// Make a RAS connection . . . 
// Returns NULL on failure ... 

H RAS CONN CClient: : Es t abl i shRASConnec t ion ( ) 
{ 

HRASCONN hRasConn; 
PRasDial pRasDial; 

PRasGetErrorString pRasGetErrorString ; 

//If RAS is not installed, return immediately. 
if( NULL == m_hRasApi32Dll ) 
return NULL; 

// Original code taken from \msdev\aamples\sdk\win32\rasberry\* . c : 
pRasDial = ( PRasDial ) Get ProcAddress (m_hRasApi 32D1 1 , "RasDial") ; 
if {NULL == pRasDial) 
return NULL; 

RASDI ALP ARAMS rdParams ; 
DWORD dwRet; 
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/ / setup RAS Dial Parameters 

rdParams.dwSize - S EntrvName^^m''configVala ["RRSScriptName"] ) ; // Default: first port t 
lstrcpy (rdParams . szEntryName, m^onixyvai 

7 " 1 . tI cp„ r «.™..««llb.*»»*.r. -■>, // H» c.nb.ck. 3u« dlr.c t . 

dwRet = pRasDial ( = 
NULL , // No RAS dial extensions 

NULL , // Default phone book, if we need it. 

r ramS ' '// RisDX A L F U N c a not!fy- function being passed . . 
^RASDIALFUNC ) RasDialFunc , // Notifier callback function. 
&hRasConn) ; 

if (dwRet) 

String" ) ; 

if (pRasGetErrorStrmg) 

char szBuf [4096] ; sizeof ( szBuf } - 1 ) != 0' 

if (pRasGetErrorString ((UINT dwRet ^^f^^^^ ( %ld) . „ , dwRet); 
wsprintf ( (LPSTR) szBuf , "Undefined RAb uiai 

AfxHessageBox (szBuf ) ; 

} 

hRasConn = NULL ; 
} 

return hRasConn; 

} 

// Hang up current RAS connection 
// Returns TRUE on success. 

BOOL C Client=:Di S e S tablishRASConnection(HRASCONN * hRasConn) 
{ 

// Original code taken from \rnsdev\samples\sdk\win32\rasberry\* . c = 
DWORD dwRet ; 

if (NULL == m_hRasApi3 2Dll) 
return FALSE ,- 

PRasHangUp pRasHangUp; „ (m hRasAoi32Dll, "RasHangUp") ; 

p R asHangUp = ( PRasHangUp) GetProcAddress Cm_hRasApi32D 

if {NULL == pRasHangUp) 
return FALSE; 

dwRet = pRasHangUp (hRasConn) ; . gress during dialing 

g^DialState = RASCS_Disconnected; // Track progre 
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{ 

PRasGetErrorString pRasGetErrorString; .. 

pRasGetErrorString = ( PRasGetErrorString ) GetProcAddresa (m_hRasApi3 2D1 1 , "RasGetErroi 
String" ) ; 

if (pRasGetErrorString) 
{ 

char szBuf [4096] ; 

if (pRasGetErrorString ( (UINT) dwRet , (LPSTR) szBuf , sizeof (szBuf ) -1) != 0) 
wsprintf ( (LPSTR) szBuf , "Undefined RAS Dial Error (%ld) . " , dwRet); 

Af xMessageBox (szBuf ) ; 

) 

hRasConn = NULL ; 
return FALSE; 
} 



// Find out what kind of a connection to the network we have, 
// so we can do some throughput and performance measurements ai 
// we go along. 

// Note: lpRasConnState used when 

// we are first dialing a connection and have some dialing stai 

// but no connection yet. 

BOOL GetRASConnectionlnf ormation ( 

H INSTANCE hRa s Api 3 2D1 1 , // handle of ras dll 

RASCONNSTATE * lpRasConnState , // Allowed to be NULL 

DWORD & iRASConnectionCount , 

RAS CONN STATUS & RasConnStatus) - 

{ 



PRasEnumConnections pRasEnumConnections ; 

pRasEnumConnections = ( PRasEnumConnections ) GetProcAddress (hRasApi32Dll , " RasEnumConnect 



RasConnStatus . dwSize = sizeof (RASCONNSTATUS) ; 
RASCONN RASConnection [1] ,- 

RASConnection [0] . dwSize = sizeof (RASCONN) ; 
DWORD rasBufSize = sizeof (RASCCNN) ; 

DWORD status = pRasEnumConnections ( 

^RASConnection [O] , // buffer to receive connections data 

iraoBufSize, // size in bytes of buffer 

tiRASConnec t ionCount ) ; // number of connections written to buffer 
if (status != 0) 
{ 

CString msg ,- 

msg . Format ( "Status error on RasEnumConnect ions : %ld" , long ( status )) ; 
HACKassert (msg, status == 0 ) ,- 
) 

if (iRASConnectionCount > 1) 
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ms" Format^ "More than one RAS connection: not handled yet: %ld" , 

long(iRASConnectionCount) ) ; . 
HACKassert<msg,iRASConnectionCount <= 1); // Don ■ t handle the case of multiple 
m a // RAS connections yet . . . 



if (iRASConnectionCount == 0) 



// Nothing connected: if we are dialing, we have passed in an IpRasConnState : 

if (lpRasConnState == NULL) fii , Una 

Rasconnstatus.rasconnstate = RASCS_Di sconnected ; // Not dialing 

^Rasconnstatus.rasconnstate - * lpRasConnState ; // Still dialing 



else 



else{ 

PRasGetConnectStatus pRasGetConnectStatus ; 

pRasGetConnectStatus - < PRasGetConnectStatus ) GetProcAddress (hRasA P i32Dll , "RasGetCon 

nectStatus" } ; 

if (NULL == pRasGetConnectStatus) 
return FALSE, - 

status = pRasGetConnectStatus (RASConnection [0] .hrasconn, 
&RasConnStatus ) ,- 

if (status != 0) 
{ 

CString msg ,- _ , „ 

msg. Format ("Invalid status on RasGetConnectionStatus: %ld , 
long (status) ) ,- 
HACKassert (msg , status == 0 ) ; 
} 

} 

return TRUE; 

} 

// Used by "dial automatically" on polling: 

// If we are supposed to dial in, and the user said to dial 




void CClient: : DialRASConnect ionAutomatical ly ( ) 
{ 

if (AtpAttrib: :ParseBool (m_conf igVals [" Connect ionPermanent "] ) ) 
return- // Permanent connection, don't use RAS dial-up. 

if (AtpAttrib: :ParseBool(m_configVals["DialAutomatically"] ) != TRUE ) 
return; // Not supposed to auto-dial. 

m_hRasConn = NULL; 

/-/ Do we already have a RAS connection? 

m bRASAlreadyActive = FALSE; _ 
DWORD iRasConCount; // — 0 if no RAS connection running. 

RASCONNSTATUS RasConStat; HRasAoi 3 2D1 1 , NULL , iRasConCount , RasConS tat ) ) 

if ( !GetRfiSConnectionInformationlm_hRasApu<!uii, nulJ1J ' 
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HACKassert ( "XXX Cannot get connection information" , FA] 
} 

m_bRASAlreadyActive = (iRasConCount > 0 ) ; 
// O.K. , dial it, 

if (ra_bRASAlreadyActive) 

return,- // Already have a RAS connection 

m_hRasConn = EstablishRASConnection ( ) ; 
if (NULib == m_hRasConn) 

Af xMessageBox ( "XXX Cannot dial RAS " ) ; 



// Note: no way to check for the connection being used by some 

// other application -- perhaps we should just have the user give us a 

// RAS connection with an automatic hang-up timeout, and leave it at that. 



void CClient : : UndialRASConnect ionAutomat ical ly ( ) 

^ if (AtpAttrib: : ParseBool (m_conf igVals [ " ConnectionPermanent " ] ) ) 
return; // Permanent connection, don't use RAS dial-up. 

if (AtpAttrib: : ParseBool <m_conf igVals [ "DialAutomat ical ly " ] ) != 

return; // Not supposed to auto-dial, 

if ( m_bRASAl readyAc t ive ) 

return; // Already had a RAS connection running, 

// so this wasn't auto-dialed.. 

if ( ! DisestablishRASConnection (m_hRasConn ) ) 

Af xMessageBox ( "XXX Cannot hang up RAS " ) ; 
} 

} 

CClient :: -CClient < ) // Destructor. 
{ 

FreeLibrary (m_hRasApi32Dll ) ; 

m_hRasApi3 2Dll = NULL; 

} 

BOOL, CClient :: PreTranslateMessage (MSG* pMsg) 

BOOL bResult = cwinApp :: PreTranslateMessage (pMsg) , - 
tfifdef HAND_CODED_S PLASH 
if (m_bSplashScreen) 
{ 

if (m_splash . m_hWnd != NULL t-& 

<pMsg->message == WM KEYDOWN [ | 

pMsg->message == WM SYS KEYDOWN | | 

P Msg->message == WM_LBUTTONDOWN j | 

pMsg->message == WM RBUTTONDOWN | | 

pMsg->message == WM MBUTTONDOWN | | 

pMsg- >message == WM NCLBUTTONDOWN | ! 

pMsg->message == WM NCRBUTTONDOWN j | 

pMsg->message == WM ncmbuttondown ) ) 

{ 

m_splash . DestroyWindow ( ) ,- 
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//m_pMainWnd- >UpdateWindow ( ) ; 
} 

} 

tfendif // HAND_CODED_SPLASH 
return bResult ,- 

} 

BOOL, CClient: : Onldle (LONG ICount) 
{ 

// call base class idle first 

BOOL bResult = CWinApp :: Onldle ( ICount ) ; 

jfifdef HAND_CODED SPLASH 

if (m_bSplashScreen) 

{ // then do our work 
if (m_splash.m_hWnd != NULL) 
{ 

if ( : : GetCurrentTime ( ) - m_dwSplashTime > 2500 + 100) 
{ 

// timeout expired, destroy the splash window 
m_splash . Des troywindow ( ) ,- 
//m_pMainWnd->UpdateWindow ( ) ,- 

// NOTE: don't set bResult to FALSE, 

// CWinApp :: Onldle may have returned TRUE 

} 

else 

bResult = TRUE; // check again later. . . 

} 

} 

flendif // HAN D_COD ED SPLASH 

return bResult; 

} 



// Routine to do our "set configuration" Wizard dialog stuff . . . 
void RunConf igura t ionWi zard ( ) 

^ CPropertySheet dlgPropertySheet ( "XXX Put Title Here") ; 

// Temp copy of current settings . . . 

AtpAttrib tconfigVals = theApp . m_conf igVals ; 

// Wizard pages: 

// Note: I wanted to pass tconfigVals in the contructors, but 

// that was causing problems with the I M P LEMENT DYNCRE ATE macro for 

// CPropertyPage . 

CPropertyPagelnternetConnection pagelnternetConnection ,- 
dlgPropertySheet . AddPage ( spagelnternetConnect ion ) ,- 
pagelnternetConnection . SetConf igVals (&tconf igVals) ,- 

CPropertyPagelPAssignment pagel PAssignment ; 
dlgPropertySheet .AddPage ( &page I PAssignment ) 
pagel PAssignment . SetConf igVals ( &tconf igVals ) ,- 

CPropertyPageDialAutomatically pageDialAutomatically ; 

21 



82 . 



dlgPropertySheet .AddPage (tpageDialAutomatically) ; 
pageDialAutomatically . SetConf igVals ( &tconf igVals ) ; 

CPropertyPageFirewall page Firewall ; 
dlgPropertySheet .AddPage (&pageFirewall) ; 
pageFirewall . SetConf igVals ( ttconf igVals ) ; 

CPropertyPageProxylnfo pageProxylnf o ; 
dlgPropertySheet .AddPage (tpageProxylnf o) ; 
pageProxylnf o . SetConf igVal s (&tconf igVals) ; 

CPropertyPageRasScript pageRasScript ,- 
dlgPropertySheet .AddPage ( &pageRasScr ipt ) ; 
pageRasScript . SetConf igVal s ( ttconf igVal s ) ; 

dlgPropertySheet . SetWizardMode ( ) ; 

int iResult = dlgPropertySheet . DoModal ( ) ; 
HACKassert ( "Bad return from property sheet", 

( iResul t== IDCANCEL) || (iResult =- ID_WIZFINISH) ) ; 



if (iResult == ID_WIZFINISH) 



et the new values 



theApp .m_conf igVals .Merge ( tconf igVal s ) ; 

theApp>=-m_conf igVals . UnparseRegis try (g_Client_Registrat ion_Key ) ; 
) 

} 

// This routine derives from stuff from the configuration results, 

// such as whether we can/should have the client initiate connections (rather 

// than just the server doing this), whether we want to auto-dial, etc. 

void ComputeConf igurationResults ( ) 
{ 



itifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client /Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: ClientApp customer client program 

$Workfile: CI ient App . cpp $ 

$Author: Tding $ 

$Revision: 56 $ 

$Date: 2/03/97 10:26a $ 

$Modtime: 2/03/97 10:26a $ 

$History: CI ient App . cpp $ 

* ***************** Version 56 ***************** 

* user: Tding Date: 2/03/97 Time: 10:26a 

* Updated in $/atp/ClientApp 

* Changes made for no RAS situation. 

* ***************** Version 55 ***************** 

* User: Jrward Date: 1/31/97 Time: 2:48p 

* Updated in $/atp/ClientApp 

* Global check- in. 
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***************** version 54 ***************** 
User: Jrward Date: 1/31/97 Time: 10:47a 

Updated in $ /atp/Cl ient App 

Stubbed out some netstat asserts for now. 

***************** version 53 ***************** 

User: Jrward Date: 1/30/97 Time: l:48p 

Updated in $ /-atp/Cl ientApp 

Added /SampleDisabled switch, other stuff for convenience, so Theo car 
test his protocol code on his own machine. 

***************** Version 52 ***************** 
User: Jrward Date: 1/29/97 Time: 5:30p 

Updated in $ /atp/Cl ient App 
End-Of-Day checkin festival. 

***************** Version 51 ***************** 

User: Jrward Date: 1/28/97 Time: l.-llp 

Updated in $/atp/ClientApp 

Afternoon check- in mostly fixes to installation from all the 

SmartLoad fixes. 

***************** Version 49 ***************** 

User: Jrward Date: 1/27/97 Time: 10:29a 

Updated in $ /atp/Cl ient App 

Smartload stuff now in separate sources SmartLoad. cpp, SmartLoad . h 

***************** version 48 ***************** 

User: Jrward Date: 1/24/97 Time: 4:58p 

Updated in $/atp/Cl ient App 

New .epsclient SmartLoad file handling: Just waiting on Theo 1 s stuff, 
which he hasn't tested yet. 

***************** version 47 ***************** 

User: Jrward Date: 1/23/97 Time: 4 : 50p 

Updated in $/atp/ClientApp 

Daily check-in: looks like I have the SmartLoad stuff working, I just 
need the new CI ient -side protocol code from Theo. 

***************** version 46 ***************** 
User: Jrward Date: 1/23/97 Time: 3 : 04p 

Updated in $/atp/ClientApp 

SmartLoad request files handled at the file level (*. epsclient in 
LoadRequestDir directory) , but no processing of the innards of the 
files yet . 

***************** version 45 ***************** 

User: Jrward Date: 1/23/97 Time: 12:25p 

Updated in $ /atp/Cl ient App 

Added /LoadRequest switch on clientapp.exe, so can use it as "helper" 
app with Web browsers for SmartLoad. Actual SmartLoad processing not 
done yet . 

***************** version 44 ***************** 

User: Jrward Date: 1/20/97 Time: 12:37p 

Updated in $ /atp/Cl ientApp 

Change registry version key from 961130 to 970120, to reflect changes 
in Theo ' s protocol code . 
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* ***************** version 43 *** 

* User: Jrward Date: 1/15/97 

* Updated in $/atp/ClientApp 

* End of the day check-in festival. 



Time : 5 : 14p • 



* ***************** version 42 ** 

* User: Jrward Date: 1/13/97 

* Updated in $ /atp/Cl ientApp 

* End-of - the-day checkin. 



Time: 5:02p 



* ***************** Version 41 ***************** 

* User: Jrward Date: 1/13/97 Time: 5:00p 

* Updated in $/atp/ClientApp 

* Cannot get ODBC calls in fake JRDemo.exe to work from the 

* ServerISAPI.DLL: work fine when running www server from debugger, but 

* throw when opening the CustomerDB.mdb database when running normally as 

* a service! 

* ***************** Version 40 ***************** 

* User: Jrward Date: 1/13/97 Time: 9:36a 

* Updated in $ /atp/Cl ientApp 

* Small change in "Setup" dialog for setting IDF directory: still more to 

* do. 

* ***************** version 37 ***************** 

* User: Ttonchev Date: 1/07/97 Time: 4:27a 

* Updated in $/atp/ClientApp 



***************** Version 36 ** 
User: Jrward Date: 1/07/97 

Updated in $/atp/ClientApp 
StatusPeriod now configurable. 



Time : 12 : 00a 



* ***************** Version 35 ***** 

* User: Jrward Date: 1/06/97 

* Updated in $/atp/ClientApp 

* Change default server to "theserver* 



Time : 2 : 03p 



***************** Version 34 ***** 
User: Jrward Date: 1/06/97 

Updated in $/atp/Cl ientApp 
Splash screen can now be suppressed, 



Time: l:21p 



***************** version 33 ** 
User: Ttonchev Date: 1/04/97 

Updated in $ /atp/Cl ientApp 
Added some more support for multiple providers 



Time : 4 : 07p 



***************** Version 32 ***************** 

User: Jrward Date: 1/04/97 Time: 2:48p 

Updated in $/atp/ClientApp 

Small changes for startup splash screen: code not done, so #ifdef 'ed 
out in certain places for now. 

***************** Version 30 ***************** 

User: Jrward Date: 1/02/97 Time: 10:57a 

Updated in $/atp/Cl ientApp 

Added SOURCE CONTROL BLOCK stuff. 



// JRW 961128 Change command- line , registry stuff to use 
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// extended. AtpAttrib class. 

// Changed version from 961117 to 961130. 

// JRW 961203 Small debugging changed. 

// JRW 961204 SampleThreshhold* values now in configuration data, 

// mostly so we can dickie with them while testing. 

// JRW 961212 Put RunConf igurat ionWizard here, so it can be invoked from 

// command line as part of our installation procedures. 

// JRW 961215 Moved "connect to server at startup" to pollling loop in 

// ClientAppDlg : it was too hard getting the non-Window 

// SetTimer functions to work with the application class - 

// JRW 961220 Moved protocol initialization, shut-down from Cl ientApp . cpp 

// to ClientAppDlg . cpp , to fix the problem of the update 

// call-back function being called after the main dialog was 

// already destroyed. 

(fendif // SOURCE_CONTROL_BLOCK 
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// ClientApp.h : main header file for the CLIENTAPP application 

(Jifndef CLI ENTAPP H INCLUDED 

tfdefine CLI ENTAP P_H_I NCLUDED 

#ifndef AFXWIN_H 

((error include ' stdafx.h- before including this file for PCH 
# end if 

((include <ras.h> // JRW 

((include "resource. h" // main symbols 

((include "SplashDlg.h" 

^include "callback.h" 

((include "options. h" 

((include " idf server . h" 

((include "atpsock.h" 

((include " socketcontrol . h" 

((include "atpattrib . h" // For command-line options, etc. 

({include "ContentControl . h" // TGT 961130 

((include <afxdisp.h> // CG : added by OLE Control Containment component 

// So that different modules will report the same build date ... 
extern CString g_Cl ient AppBui ldDat e ,- 

typedef DWORD (FAR PASCAL * PRasGetErrorString ) ( 

UINT uErrorValue, // error to get string for 
LPTSTR IpszErrorString, // buffer to hold error string 

DWORD cBufSize // size, in characters, of buffer 

) ; 

typedef DWORD (FAR PASCAL * PRasDial) ( 

LPRASDI ALEXTENS IONS lpRasDialExtens ions , // pointer to function extensions data 

LPTSTR lpsz Phonebook, // pointer to full path and filename of phonebook file 

LPRASDI ALP ARAMS lpRasDial Params , // pointer to calling parameters data 

DWORD dwNotif ierType , // specifies type of RasDial event handler 

LPVOID lpvNotifier, // specifies a handler for RasDial events 

LPHRASCONN lphRasConn // pointer to variable to receive connection handle 

) ; 

typedef DWORD (FAR PASCAL * PRasHangUp) ( 

HRASCONN hrasconn // handle to the RAS connection to hang up 
) ; 

typedef DWORD (FAR PASCAL * PRasGetConnectStatus ) ( 

HRASCONN hrasconn, // handle to RAS connection of interest 
LPRASCONNSTATUS lpr asconns tat us // buffer to receive status data 

) ; 

typedef DWORD (FAR PASCAL * PRasEnumConnect ions ) ( 

LPRASCONN lprasconn, // buffer to receive connections data 

LPDWORD lpcb, // size in bytes of buffer 

LPDWORD lpcConnections // number of connections written to buffer 

- ) ; 

typedef DWORD (FAR PASCAL * PRasEnumEntries) { 

LPTSTR reserved, // reserved, must be NULL 

LPTSTR IpszPhonebook, // pointer to full path and filename of phonebook file 
LPRASENTRYNAME lprasent ryname , // buffer to receive phonebook entries 
LPDWORD lpcb, // size in bytes of buffer 
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LPDWORD lpcEntries 



// number of entries 'written to buffer 



) ; 



// '//// 7/ '/////////////////////////// 7 '/////////////// V/ ///// 7 V/////// 7 '//// 7 V// V 
// CClient: 

// See Client. cpp for the implementation of this class 
// 

class CClient : public CWinApp 
{ 

public : 

CClient ( ) ; 

-CClient () ; // Destructor. 
// Overrides 

// Class Wizard generated virtual function overrides 
// { { AFX_VIRTUAL (CClient ) 
public : 

virtual BOOL. Init Instance () ; 

virtual BOOL OnldlelLONG ICount) ; 

virtual BOOL PreTranslateMessage (MSG* pMsg); 

// } }AFX_VIRTUAL 

// Implementation 

private : 

VOID ShowHowToUse (const char * msg, const char * BadCommandLinePart ) ,- 

// Show usage in a message box 
BOOL DoCommandLine ( ) ; // Parse out command line. 

VOID ShowRegi strat ionValues ( ) ; 
AtpAttrib Get FactoryDef aultValues ( ) ; 
VOID DeleteRegistrationValues ( ) ,- 

BOOL ValidBoolean (CString & sBoolean) ; 

BOOL ValidRASScriptName (CString & RASScriptName) ; 

BOOL ValidSerial (CString & serialNumber ) ; 

BOOL ValidClientPollingPeriod (CString & sampleTime) ,- 

BOOL ValidSampleTime (CString & sampleTime) ; 

BOOL ValidSampleCount (CString & sampleCount ) ; 

BOOL ValidRASPhoneNuraber (CString & phoneNumber) ; 

// For splash screen . . . 

DWORD m_dwSplashTime ,- 
CSplashDlg m_splash; 

public : 

// Command line / registry configuration parameters . . . 
AtpAttrib m_conf igVals ; 

BOOL m_bSplashScreen; // Used to suppress splash screen. 

// JRW These should be in their own class? 
// ... or at least not part of theApp? 

void DialRASConnectionAutomatically ( ) ; 

void UndialRASConnect ionAutomat ical ly ( ) ; 

BOOL Di ses t abl i shRASConnec t ion ( HRASCONN & hRasConn) ; 
HRASCONN EstablishRASConnection ( ) ; 
BOOL m_bRASAlreadyActive ; 

HRASCONN m_hRasConn; // Ras connection we are using, if any. 
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// RAS DLL 

static H INSTANCE m hRasApi 3 2D1 1 ; 

private: 

BOOL invalidConf igurationValue (const char * name); 

VOID SetSerialInstallationDate<AtpAttrib & configVals, CTime & t, 

CString & textString) ,- 
VOID GetSeriallnstallationDatefAtpAttrib & configVals, CTime & t, 

CString & textString) ; 

//{{AFX MSG(CClient) _ • = u ovo 

// NOTE - the ClassWizard will add and remove member functions here. 
// DO NOT EDIT what you see in these blocks of generated code ! 

// } } AFX_MSG 

DECLARE MESSAGE MAP ( ) ; 

} 

extern BOOL GetRASConnect ionlnf ormat ion ( , n .. 

H INSTANCE hRasApi32Dll , // handle of ras dll 

RASCONNSTATE * lpRasConnSt ate , // State passed in while dialing 
DWORD & iRASConnectionCount, // Returns count of connecitons 

RAS CONN STATUS & RasConnS tatus ) ; // Returns status 

extern void RunConf igurationWizard ( ) ; 
extern void ComputeConf igurat ionResul t s ( ) ,- 

extern CClient theApp,- // JRW : anyplace we use this, we should probably 

/ / look into making the code more modular ! 
extern const char * g_Client_Registration_Key ; 

// For debugging and testing only ... . 
JLZn BOOL a blimulateTransfer; // Simulate transfer of data for dialog 



xtern BOOL g bSimulateTransf er ; , . _ . ^ 

tern BOOL g^SampleDi sabled ; // Disable "network sample " 

— // for our "politeness" on busy networks. 



ftifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Cl ient /Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: ClientApp customer client program 

$Workfile: ClientApp. h $ 

$Author: Tding $ 

$Revision: 37 $ 

$Date= 2/03/97 10:27a $ 

$Modtime: 2/02/97 4 : 3 Op $ 

$History: ClientApp. h $ 

* ***************** Version 37 ***************** 

-* User: Tding Date: 2/03/97 Time: 10:27a 

* Updated in $/atp/ClientApp 

* Added m_hRasApi?2Dll as a static handle to the RAS library. 

+ ***************** Version 36 ***************** 

* User: Jrward Date: 1/31/97 Time: 2:48p 

* Updated in $/atp/ClientApp 
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Global check- in. 

***************** Version 35 ***************** 
User: Jrward Date: 1/31/97 Time: 10:47a 

Updated in $/atp/ClientApp 

Stubbed out some netstat asserts for now. 

***************** Version 34 ***************** 
User: Jrward Date: 1/30/97 Time: 1 : 48p 

Updated in $ /atp/Cl lent App 

Check everything I have in, so Theo can get it. 

***************** Version 33 ***************** 
User: Jrward Date: 1/29/97 Time: 5:30p 

Updated in $ /atp/Cl ient App 
End-Of-Day checkin festival. 

***************** Version 32 ***************** 
User: Jrward Date: 1/28/97 Time: 1 : lip 

Updated in S/atp/Cl ientApp 

Afternoon check-in -- mostly fixes to installation from all the 
Smart Load fixes. 

***************** Version 31 ***************** 

User: Jrward Date: 1/27/97 Time: 5 : lip 

Updated in $ /atp/Cl ient App 
SmartLoad sort of working . . . 

***************** Version 30 ***************** 
User: Jrward Date: 1/27/97 Time: 10 :29a 

Updated in $/atp/ClientApp h 
Smartload stuff now in separate sources SmartLoad . cpp , SmartLoad . n 

Version 29 



User ; 



Jrward Date: 1/24/97 Time: 4 : 58p 



* Updated in S/atp/Client App 

* New .epsclient SmartLoad file handling: Just waiting on Theo s stuff. 

* which he hasn't tested yet. 

* ***************** Version 28 ***************** 

* User: Jrward Date: 1/23/97 Time: 4 : 50p 

* Updated in $/atp/ClientApp 

* Daily check-in: looks like I have the SmartLoad stuff working, I ]ust 

* need the new Client-side protocol code from Theo. 

* ***************** Version 27 ***************** 

* User: Jrward Date: 1/23/97 Time: 3 : 04p 

* Updated in $/atp/Cl ientApp n . „ . . 

* SmartLoad request files handled at the file level (*. epsclient in 

* LoadRequestDir directory) , but no processing of the innards of the 

* files yet . 

* ***************** Version 26 ***************** 

* User: Jrward Date: 1/23/97 Time: 12:25p 

* updated in $/atp/ClientApp ..h^loer" 

* Added /LoadRequest switch on clientapp.exe, so can use it as helper 

* app with Web browsers fcr SmartLoad. Actual SmartLoad processing not 

* done yet . 

* ***************** Version 25 ***************** 
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User: Jrward Date: 1/15/97 

Updated in $ /atp/ClientApp 

End of the day check-in festival. 

***************** Version 24 ** 
User: Jrward Date: 1/13/97 

Updated in $/atp/ClientApp 
End-of - the-day checkin . 



Time : 5 : 15p 



***************** version 23 **************** 

User: Jrward Date: 1/13/97 Time: 5 .- OOp 

Updated in $/atp/ClientApp 

Cannot get ODBC calls in fake JRDemo.exe to wor 
ServerISAPI.DLL: work fine when running www ser 
throw when opening the CustomerDB.mdb database 
a service ! 



c from the 

'er from debugger, but 
'hen running normally as 



***************** version 22 ***************** 

User: Jrward Date: 1/13/97 Time: 9:36a 

Updated in $/atp/ClientApp 

Small change in "Setup" dialog for setting IDF directory: 
do. 



still more to 



***************** version 21 * 
User: Jrward Date: 1/10/97 

Updated in $ /atp/Cl ient App 
More stuff hooked up in Setup 
directory selection. 



alog, but still need to work 



***************** Version 20 ***** 
User: Jrward Date: 1/06/97 

Updated in $ /atp/Cl ient App 
Splash screen can now be suppressed. 

***************** Version 17 ***** 
User: Jrward Date: 1/02/97 

Updated in $/atp/ClientApp 
Added SOURCE_CONTROL_BLOCK stuff. 



***************** Version 16 ** 
User: Jrward Date: 1/02/97 

Updated in $/atp/ClientApp 



Time: 10:26a 



***************** Version 15 ** 
User: Jrward Date: 1/02/97 

Updated in $/atp/Cl ientApp 



* ***************** Version 13 ***************** 

* User: Jrward Date: 1/02/97 Time: 10:16a 

* Updated in $/atp/ClientApp 

* Test of SOURCE_CONTROL_BLOCK 

// JRW 961128 Changed to use AtpAttrib to hold the configuration values 
// from the command line / registry. 

// HACKassert moved to utility. h 

// JRW 961212 Put RunConf igurationWizard here, so it can be invoked from 

// command line as part of our installation procedures. 

// JRW 961215 Moved "connect to server at startup" to poll 1 ing loop in 

// ClientAppDlg : it was too hard getting the non-Window 

// SetTimer functions to work with the application class. 

// JRW 961220 Moved protocol initialization, shut-down from CI ientApp . cpp 
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// 
// 
// 
// 

#endif 



to ClientAppDlg.cpp, to fix the problem of the update 
call-back function being called after .the main dialog was 
already destroyed: 

m_idf server , m_atpserver, m_con tent server 
/ / SOURCE_CONTROLi_BLiOCK 



#endif // CLIENTAPP H INCLUDED 
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// ClientAppDlg . cpp : implementation file 
#include "stdafx.h" 

^include <assert.h> // JRW for debugging. 

^include "utility.h" 
ttinclude "atpattrib . h" 
ft include " atpexcept . h " 

ttinclude " CI ient App . h " 

iinclude "ClientAppDlg . h" 

ttinclude " Smart Load . h" 

ttinclude "atpsock.h" // for AtpState . 

#include " ProcessMonitor . h" // for the UGLY stuff ... 

ttinclude " Conf igureDlg . h" 
ttinclude "DbgConf igDlg.h" 
#include "EasterEggDlg.h" 
ttinclude "TexCDisplayDlg .h" 

extern RASCONNSTATE g_DialState; // JRW Ungly hack. 

ttifdef DEBUG 

((define new DEBUG NEW 

ttundef THIS_FILE_. 

static char THIS_FILE[] = FILE ; 

ttendif 

t/m//mmumnnm/mnm//fmift/m/m/m///m// /////// /////// 

// CAboutDlg dialog used for App About 

class CAboutDlg : public CDialog 
{ 

public : 

CAboutDlg { ) ; 

// Dialog Data 

//{ { AFX DATA (CAboutDlg) 

enum { IDD = IDD_ABOUTBOX } ; 

CStatic m_ICON_IMAGE; 

/ / } } AFX DATA 

// ClassWizard generated virtual function overrides 

//{ {AFX VIRTUAL (CAboutDlg) 

protected: 

virtual VOID DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

/ / } } AFX_V I RTUAL 

// Implementation 
protected : 

// { { AFX MSG ( CAboutDlg ) 

afx_msg VOID OnRBut tonDblClk (UINT nFlags, CPoint point) ; 

// } }AFX_MSG 
DECLARE MESSAGE MAP { ) 

CAboutDlg: : CAboutDlg () = CDialog (CAboutDlg :: IDD) 

{ 
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// { { AFX DATA I NIT (CAboutDlg) 

// } } AFX DATA INIT 

} 

VOID CAboutDlg: :DoDataExchange (CDataExchange* pDX) 
{ 

CDialog: : Do Da t a Exchange (pDX ) ,- 
/ / { { AFX_DATA MAP (CAboutDlg) 

DDX_Control(pDX, I DC I CON IMAGE , m_ICON_IMAGE) ; 

/ / } } A F X DATA MA P 

} 

// Check for a double-right-click on the little "company icon" image in 
// the upper- left of the dialog. 

VOID CAboutDlg :: OnRButtonDblClk (UINT nFlags , CPoint point) 

// Get rect for our secret icon, and convert to client co-ordinates for the 
// main dialog, to match the mouse point location: 

CRect iconRect; 

m_ICON_IMAGE .GetWindowRect (SciconRect ) ; // Returns screen coordinates 
ScreenToClient (SciconRect ) ; // Convert to dialog's client co-ordinates 

// Now that the mouse point and icon rect are in the same co-ordinate system, 
// check whether the user clicked in the icon: 

BOOL blnside = iconRect . PtlnRect (point ) ; 

// If they clicked inside, and they are holding down both the 
// control and the shift keys, bring up our secret feature ... 

if (blnside (nFlags & MK CONTROL ) && (nFlags & MK SHI FT ) ) 

{ 

CEasterEggDlg dlgEasterEgg; 

dlgEasterEgg . DoModal ( ) ; 

} 

// "Now we return to your previously scheduled programming, in progress ..." 
CDialog: : OnRButtonDblClk (nFlags , point) ; 

} 

BEGIN MESSAGE MAP (CAboutDlg, CDialog) 

/ / { { AFX MSG MAP (CAboutDlg) 

ON WM RBUTTONDBLCLK ( ) 

/ / } } AFX MSG MAP 

END MESSAGE MAP ( ) ; 

///////////{////////////////////////////////////////////////?/////////////!// 
// CClientAppDlg dialog 

((define MYWM_NOTIFYICON ( WM_USER+100 ) 

// MyTaskBarAddlcon - adds an icon to the taskbar notification area. 
// Returns TRUE if successful or FALSE otherwise. 
// hwnd - handle of the window to receive callback messages 
// uID - identifier of the icon 
// hicon - handle of the icon to add 
// IpszTip - tooltip text 

2 
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BOOL MyTaskBarAddlcon (HWND hwnd, UINT uID, HICON hicon, LPSTR IpszTip) 
{ 

BOOL res; 

NOT I FY I CONDATA tnid; 

tnid.cbSize = sizeof (NOT I FY I CONDATA) ; 
tnid . hWnd = hwnd ; 
tnid.uID = uID; 

tnid.uFlags = NI F MESSAGE | NIF_ICON | NIF_TIP; 

tnid.uCallbackMessage = MYWM_NOTIFYICON ; 
tnid.hlcon = hicon; 
if (IpszTip) 

lstrcpyn ( tnid . szTip , IpszTip, sizeof ( tnid . szTip) ) ; 

else 

tnid . szTip [0] = ' \0',- 

res = Shell Notif ylcon (NIM ADD, fctnid) ; 

if (hicon) 

Destroylcon (hicon) ,- 

return res; 

} 

// MyTaskBarDeletelcon - deletes an icon from the taskbar 
// notification area. 

// Returns TRUE if successful or FALSE otherwise. 
// hwnd - handle of "the window that added the icon 
// uID - identifier of the icon to delete 
BOOL MyTaskBarDeletelcon (HWND hwnd, UINT uID) 
{ 

BOOL res; 

NOTIFYI CONDATA tnid; 

tnid.cbSize = sizeof (NOTIFYI CONDATA) ; 
tnid.hWnd = hwnd; 
tnid.uID = uID; 

res = Shel 1 Not i f y I con (NIM DELETE , ttnid) ; 

return res; 

} 



// Design note: 

// Some of these loops could be moved to independent threads, 
// but we haven't done so right now, because 
// 1) We might have to make them thread- safe. 

// 2) We might have to make some of the member-data objects 
// they reference thread-safe. 

// 3) These loops repeat (at most) every few minutes, which doesn't 

// sound much like the stuff that time-critical threads are made of. 



// Event ID'S for OnTimer function . . . 

#define EVENT PROGRESS 101 

(fdefine EVENT POLL SERVER 102 

U define EVENT LOAD REQUEST 103 

tfdefine INTERVAL INITIAL 



// progress -bar update 
// Poll the server . . . 
// Check LoadRequest directory 



(2000L) // Initial timer periods are short 
// so that first updates are quick 



// but after the dialog is initialized 

VOID CClientAppDlg: : In i t ial i zeLoopTimers ( ) 
{ 

// Set up our repeating functions that run off of timers . . . 
// Progress bar: 

// JRW Set up a timer, just to catch (eventually) any changes in state 

// the call-back functions may skip due to quirks in the evolving transfer 

// code . . . 

// Note: first timer period is short ... 

m IDTimerProgress = SetTimer { EVENT PROGRESS , INTERVAL INITIAL , NULL) ; 

HACKassert ( "Could not create progress bar timer" , m_IDTimer Progress != 0); 

// Set up our polling loop for our periodic cl ient - ini t iat ed connections 
// with the server . . . 

int pollTime = AtpAt t rib :: Parselnt (m_conf igVals [" Cl ient Pol 1 ingPeriod "]) ; 
if (pollTime > 0) 
{ 

// Note: first timer period is short . . . 

m IDTimerPollServer = SetTimer ( EVENT POLL SERVER, INTERVAL INITIAL , NULL ) ; 

HACKassert ( "Could not create polling timer ", m_IDTimerPollServer != 0 ) ,- 

} 

LoopClientPollServer () ; // Check in with the designated server ... (TGT) 

int reqTime '= AtpAt t rib :: Parselnt (m_conf igVals [" LoadRequest Per iod "]) ; 
if (reqTime > 0) 

m_IDTimerLoadRequest=SetTimer ( EVENT LOAD REQUEST , INTERVAL INITIAL , NULL) ; 

HACKassert ( "Could not create request timer" , m_IDTimerLoadRequest != 0); 
} 

} 

VOID CClientAppDlg: : Ki HLoopTimers ( ) 
^ if ( ! KillTimer (m_IDTimerProgress) ) 

HACKassert ( "Could not kill progress bar timer" , FALSE) ; 
} 

if ( ! KillTimer ( m_IDTimerPol lServer ) ) 

HACKassert ( "Cannot kill polling timer" , FALSE) ; 

if ( ! KillTimer (m_IDTimerLoadRequest ) ) 

HACKassert ( "Cannot kill load request timer" , FALSE) ; 
} 

} 

CClientAppDlg: : CClientAppDlg (AtpAttrib & configVals, CWnd* pParent /*=NULL*/) 
~: CDialog (CClientAppDlg =: IDD, pParent), 
m_conf igVals (configVals) , 

m_bStartHidden (AtpAttrib: : ParseBool (m_conf igVals [ "StartHidden" } ) ) , 
m_bSecretDebugMode (FALSE) 

^ // { { AFX_DATA_INIT (CClientAppDlg) 
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/ / } } AFX DATA_INIT 

// Note that Loadlcon does not require a subsequent Destroylcon in Win32 
m_hIcon!6 = Af xGet App ( ) - >LoadIcon ( IDI_DOCICON3 2 ) ; 

m_hIcon32 = Af xGetApp ( ) - >LoadIcon ( IDI_DOCICON3 2 ) ,- 



VOID CClientAppDlg : : DoDataExchange ( CDat aExchange* pDX) 



CDialog: : DoDataExchange (pDX) ; 
/ / { { AFX DATA MAP (CClientAppDlg) 



DDX_Control (pDX, 
DDX_Control (pDX, 
DDX_Control (pDX, 
DDX_Control (pDX, 
DDX_Control (pDX, 
DDX_Control (pDX , 
DDX_Control (pDX, 
DDX_Control (pDX, 
DDX_Control {pDX, 
DDX_Control (pDX, 
DDX_Control (pDX, 
DDX_Control (pDX, 
DDX_Control (pDX, 
DDX_Control (pDX, 
/ / } } A FX DATA MA P 



IDC_PROGRESS_LABEL10 , m_ProgressLabellO) ; 

IDC SECRET DEBUG_TEXT TOP , m_SECRET DEBUG TEXT_TOP) ; 

IDC_SECRET_DEBUG_TEXT_BOTTOM , m SECRET DEBUG TEXT BOTTOM ) ; 

IDC_ICON_IMAGE, m_ICON_IMAGE) ; 



IDC PROGRESS LABEL 9 , 

IDC PROGRESS LABELS , 

IDC_PROGRESS LAB EL 7 , 

IDC PROGRESS_LABEL6 , 

IDC_PROGRESS_LABEL5 , 

IDC PROGRESS LABEL4 , 

I DC PROGRESS LABEL3 , 

IDC PROGRESS LABEL2 , 

IDC_PROGRESS LABEL 1 , 

IDC_PROGRESS BAR, 



m_ProgressLabel9 ) 
m_ProgressLabe 1 8 ) 
m_ProgressLabel7 ) 
m_ProgressLabel6 ) 
m_ProgressLabel5 ) 
m_ProgressLabel4 ) 
m_ProgressLabel3 ) 
m_ProgressLabel2 ) 
m_ProgressLabell ) 
m_PROGRESS_BAR) ; 



BEGIN MESSAGE MAP (CClientAppDlg, CDialog) 

// { { AFX MSG_MAP (CClientAppDlg) 

ON WM S YS COMMAND ( ) 

ON WM D EST ROY ( ) 

ON_WM_PAINT ( ) 

ON WM QUERYDRAG I CON ( ) 

ON BN CLICKED ( IDC HIDE , OnHide) 

ON WM T I M E R ( ) 

ON_WM_CLOSE ( ) 

ON BN CLICKED ( ID_CONFIGURE , OnConf igure ) 

ON WM RBUTTONDBLCLK ( ) 

ON_BN CLICKED ( IDC BUTTON ABOUT, OnBut tonAbout ) 

ON BN CLICKED ( IDC BUTTON HELP , OnBut tonHelp ) 

ON_BN_CLICKED ( IDC_BUTTON_CLI ENT_POLL_NOW , OnBut tonCl i ent Pol lServerNow ) 
ON BN CLI CKED ( ID DEBUGGER , OnDebugger) 

ON BN CLICKED ( ID INTERRUPT TRANSFER, OnlnterruptTransf er ) 

ON_BN_CLI CKED { ID PAUSE TRANSFER , OnPauseTransfer) 

ON_BN CLICKED ( IDC BUTTON SETUP , OnBut tonSetup ) 

ON MESSAGE (MYWM NOTIFYICON, OnNot i f y I con ) 

ON BN CLICKED ( ID CHECK SMARTLOAD , OnCheckSmar t load ) 

// } } AFX MSG MAP 

END MESSAGE MAP ( ) ; 

///////////////////////////////////////////////////////////////////////////// 
// CClientAppDlg message handlers 

BOOL CClientAppDlg: : OnlnitDialog ( ) 
{ ' 

CDialog: : OnlnitDialog ( ) ,- 
MyTaskBarAddlcon (m_hWnd, IDI_DOCICON16 , m_hIcon!6, "Atp Client"); 
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// Add "About..." menu item to system menu. 

#ifdef STUBBED OUT 

// lDM_ABOUTBOX must be in the system command range. 
ASSERT ( (IDM_ABOUT BOX & OxFFFO) == IDM_ABOUTBOX) ,- 

ASSERT ( IDM ABOUTBOX < OxFOOO) ; 

CHenu* pSysMenu = GetSystemMenu (FALSE) ; 
CString strAboutMenu; 

s t r About Menu . Loads t ring ( IDS ABOUTBOX ) ; 

if (! strAboutMenu . IsEmpty () ) 

^ pSy sMenu - >AppendMenu (MF SEPARATOR) ; 

pSysMenu- >AppendMenu (MF STRING , IDM_ABOUTBOX , strAboutMenu) ; 

} 

tfendif 

// set the icon for this dialog. The framework does this automatically 
// when the application's main window is not a dialog 
SetIcon(m_hIcon32 , ■ TRUE) ; // Set big icon 

SetIcon(m_hIconl6, FALSE),- // Set small icon 

// TODO: Add extra initialization here 

InitializeProtocblStuf f () ; 

InitializeLoopTimers ( ) ; 
return TRUE; // return TRUE unless you set the focus to a control 

} 

VOID CClientAppDlg: :OnSysCommand(UINT nID, LPARAM lParam) 

^ if ( (nID & OxFFFO) == IDM_ABOUTBOX) 
{ 

CAboutDlg dlgAbout ; 
dig About . DoModal ( ) ; 

} 

else 

CDialog: : OnSysCommand (nID , lParam) ; 

} 

} 

VOID CClientAppDlg : :OnDestroy ( ) 
{ 

// JRW Kill the timers . . . 
KillLoopTimers ( ) ; 

MyTaskBarDeleteIcon(m_hWnd, IDI_DOCICONl 6 ) ; 

WinHelptOL, HELP QUIT) ; 

CDialog: :OnDestroy() ; 

} 

// If vou add a minimize button to your dialog, you will need the code below 
/' todrawthe icon. For MFC applications using the document /view model, 
// this is automatically done for you by the framework. 

VOID CClientAppDlg: :OnPaint () 



9 8 




{ 

if ( Islconic ( ) ) 
{ 

CPaintDC dc(this) ,• // device context for painting 

SendMessage (WM ICONERASEBKGND, (WPARAM) dc . Get Saf eHdc ( ) , 0 ) ,- 

// Center icon in client rectangle 

int cxlcon = GetSystemMetrics (SM_CXICON) ; 

int cylcon = GetSystemMetrics (SM_CYICON) ; 

CRect rect; 

GetClientRect(trect) ; 

int x = (rect .Width ( ) - cxlcon + 1) / 2; 
int y = (rect .Height ( ) - cylcon + 1) / 2; 

// Draw the icon 

dc . Drawlcon (x , y, m_hIcon32); 

} 

else 
{ 

SetSecretDebugDialog ( ) ,- // Set the secret debug mode. 

if (m_bStartHidden) // Hack: real fix is to have a non-Modal dialog. 

{ // ... this hack is to DoModal ( ) showing the window 

m_bS tart Hidden = FALSE; 
ShowWindow (SW_HIDE) ; 
} 

CDialog : t OnPaint ( ) ; 

} 

} 

// The system calls this to obtain the cursor to display while the user drags 
// the minimized window. 

HCURSOR CClientAppDlg : : OnQueryDraglcon ( ) 
{ 

return (HCURSOR) m_hIconl6; 

} 

afx_msg LRESULT CClientAppDlg : : OnNotif ylcon (WPARAM wParam, LP ARAM lParam) 
{ 

UINT uID = (UINT) wParam; • .~ 

UINT uMouseMsg = (UINT) lParam; 

if ( (uMouseMsg == WM LBUTTONDOWN ) | | (uMouseMsg == WM RBUTTONDOWN ) ) 

{ 

ShowWindow (SW_SHOW) ; 

LoopUpdateProgressDialog ( ) ; // Initialize progress bar for starters. 
} 

return 0 ; 

) 

VOID CClientAppDlg: :OnHide ( ) 
{ 

ShowWindow (SW_HIDE) ; 

} 

// Routine to get progress data . . . 
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typedef struct tag PROGRESS — INFO 

CString threadPriori ty ,- 
DWORD ethernet Count ,- 
CString ethernetBreakdown; 
DWORD aver age Ethernet Load ; 
DWORD currentEthernetLoad; 
DWORD protocolCount ; 
CString protocolComparison ; 
DWORD averageProtocolLoad; 

DWORD currentProtocolLoad; 

string dialState; // Return as a string for now ... 

long fileAmount; 
long fileSize; 
CString xf erState ,- 
CString fileName; 
} PROGRESS_INFO; 

// Macro-hack to make the code more readable . . - 
tfdefine CHECK_RASCS_STATE (ref state) \ 
if (rasconnstate = = (ref state)) \ 

pInfo->diaLState = ttrefstate; \ 
} 

//JR: Basically, I need to by pass GetRASConnect ionlnf ormation 
//when Rasapi32.dll is not available. 

VOID CClientAppDlg::GetProgressValue S (PVOID pProgressInf o) 
HACKassertC'Bad pProgressInf o pointer passed", pProgressInf o ! = 

PROGRESS_INFO * plnfo = ( PROGRESS_INFO *) pProgressInf o ; 

RASCONNSTATE rasconnstate; 

// Get Connection status ... connection running. 

DWORD iRASConnectionCount ; // U -t no t^o 

RASCONNSTATUS RasConnS tatus ,- 

//Tim: If the RAS is not installed, m_hRasApi3 2Dll is null and 

//the next section is skipped. 

if (theA PP .m_hRasApi32Dll ! = NULL) 

" ^(S^*^^™^!?!.^.,.. iRASConnectionCount, RasConnSt 

HACKassert("XXX Cannot get connection information" , FALSE) ; 

rasconnstate = RasConnStatus . rasconnstate ; 

// Get string for connection state ... 
- " C HECK_RASCS_STATE(RASCS_OpenPort) 

else CHECK RASCS_STATE <RASCS_PortOpened) 

else check"" RASCS STATE <RASCS_ConnectDevice) 

else CHECK - RASCS STATE ( RASCS — DeviceConnec ted) 

llll CHECK _ RASCS STATE (RASCS_AllDevices onnected) 

else CHECK RASCS STATE ( RASCS_Authent icate ) 



: NULL) ; 
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else CHECK RASCS STATE (RASCS_AuthNot if y ) 

else CHECK RASCS STATE (RASCS_AuthRetry) 

else CHECK RASCS STATE ( RASCS_AuthCal lback) 

else CHECK_RASCS STATE ( RASCS_AuthChangePas sword ) 

else CHECK RASCS STATE (RASCS_AuthProj ect ) 

else CHECK_RASCS STATE ( RASCS_AuthLinkSpeed ) 

else CHECK_RASCS STATE (RASCS AuthAck) 

else CHECK_RASCS STATE (RASCS_ReAuthent icate ) 

else CHECK RASCS STATE (RASCS_Authenticated) 

else CHECK RASCS STATE (RASCS_PrepareForCallback) 

else CHECK_RASCS STATE (RASCS_Wai tForModeraReset ) 

else CHECK RASCS STATE ( RASCS_Wai t ForCal lback) 

else CHECK RASCS STATE (RASCS_Proj ected) 

else CHECK_RASCS STATE (RASCS_SubEntryConnected) 

else CHECK RASCS STATE ( RASCS SubEntryDi s connected) 

else CHECK RASCS STATE (RASCS_Interactive ) 

else CHECK RASCS STATE { RASCS_Re t ryAut hent i cat ion ) 

else CHECK RASCS STATE ( RASCS_Cal IbackSe t ByCal ler ) 

else CHECK RASCS STATE ( RASCS_Pas swordExpi red ) 

else CHECK_RASCS STATE (RASCS_Connected) 

else CHECK RASCS STATE ( RASCS_Di sconnec t ed ) 

else { 

CSt ring msg; 

msg. Format { "Unknown RASCS state: %ld" , long (rasconnstate 
HACKassert (msg, FALSE) ; 
} 

} 

el se 

{ //For the case when no RAS is installed. 

plnf o- >threadPriori ty = _T ( 11 " ) ; 

plnf o- >ethernetCount = 0; 

plnf o- >e the met Breakdown = _T ( " " ) ; 

plnf o- >ave rage Ether net Load =0; • 

plnf o - >cur rent Et heme tLoad = 0 ; 

plnf o - =■ protocol Count = 0 ; 

plnf o- >protocolComparison = _T ( " " ) ,• 

plnf o- >averageProtocolLoad = 0 ,- 

plnf o- >current Protocol Load = 0 ; 

plnf o->dialState = _T ( " " ) ; 

plnf o- >f i le Amount = 0 ; 

plnf o- >f ileSize = 0; 

plnf o- >xf erState = _T ( " " ) ; 

plnf o- >f ileName = _T ( " " ) ; . 

} 

// XXX Should be accessed with functions . . . 
if (ra_bSecretDebugMode) 
{ 

if (UGLYThreadPriori ty= = THREAD_PRIORITY HIGHEST ) 

plnf o- > threadPr iori ty= "HIGHEST " ; 
else if ( UGLYThreadPr iori ty==THREAD_PRIORITY ABOVE NORMAL) 

pInfo->threadPriority="ABOVE_NORMAL" ,- 
else if (UGLYThreadPr iori ty==THREAD PRIORITY NORMAL ) 

pInfo->threadPriority= "NORMAL" ,- 
else if (UGLYThreadPriority==THREAD PRIORITY BELOW NORMAL) 

plnf o- >threadPriority="BELOW_NORMAL" ,- 
else if (UGLYThreadPriori ty==THREAD PRIORITY LOWEST ) 

plnf o- >threadPriority= " LOWEST " ; 
else if ( UGLYThreadPriori ty= = THREAD PRIORITY IDLE ) 

plnf o- >threadPriority= " IDLE" ; 
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else{ 

HACKassert (" Invalid thread priority computed! ", FALSE) ; 

plnf o- >threadPriority = "< internal error > 



P Info->ethernetCount = UGLYEthernetCount ; 

Breakdown. Format ("%10lu, %10lu" , 



plnf o- >ethernetB 



UGLYEthernetReceiveCount , 
UGLYEthernetSendCount) ; 



plnf o- >averageEthernetLoad 
plnf o - >current Ethernet Load 
plnf o- >protocolCount 

UGLYMutex . Lock ( ) ; 

plnf o- > pro to col Comparison 

UGLYMutex . Unlock ( ) ; 

plnf o- >averageProtocolLoad 
plnf o- >cur rent Pro tocolLoad 
} 



UGLYaverageEthernetLoad ,- 
= UGLYcurrentEthernetLoad; 
= UGLYProtocolCount ; 



UGLYProtocolComparison; 



UGLYaverage Pro tocolLoad ,- 
UGLYcurrent ProtocolLoad ; 



#if def 
static 
static 



STUBBED OUT 

long f akeFi le Amount = O ,- 
long fakeFileSize = 7000000L; 

(f akeFi leAmount >= fakeFileSize) 



fileAmount = fileSize = 0 ; 
f akeFi leAmount = 0 ; 
return ; 

f akeFi leAmount += (fakeFileSize / 12) ,• 
if ( f akeFi leAmount > fakeFileSize) 
f akeFi leAmount = fakeFileSize; 
fileAmount = f akeFi leAmount ; 
fileSize = fakeFileSize; 

xf erState = "defrauded" ; 
fileName = "pudn'n tane" ; 

tfendif 



// For next time. 



plnf o- >f i leAmount 
plnf o- >f ileName = 
plnf o- >xf erState = 



= plnf o- >f ileSize = 
" <no f ile>" ; 
"<unknown: error? >" 



NULL) ) ; 



assert ({"Bad internal pointer m_atpserver" , m_atpserver 

const CPtrArray * p_conns = m_atpserver- >GetAl IConnect ionStates ( ) ; 

assert(("Bad internal pointer p_conns " , p_conns != NULL) ) ; 
int connect ionCount 



conns - >GetSize ( ) ; 



if (connect ionCount == 0) 



"No connections in progress 
= plnf o->f ileSize = 0 ; 



{ 

plnf o- >xf erState = 
plnf o- >fi leAmount 
plnf o- >f ileName = ""; 

return ; 

} 

"// Multiple connections are a by-product of sockets not being really close 
// until TCP/IP gets around to closing them asynchronously. 

int connect ionldx = connect ionCount -1; 
AtpConnection : : AtpState atpState = 



1 02 



( (AtpConnection* ) (p_conns - >GetAt ( connect ionldx) ) ) ->state 



if ( atpState==AtpConnect ion 

else if (atpState==AtpConnection 

else if ( a tpS t at e = = AtpConnect ion 

else if ( atpS tat e = = AtpConnect ion 

else if ( atpState==AtpConnect ion 



: CONNECTING) plnf o- >xf erState= " CONNECTING 

: WAITING) plnf o- >xf erState= " WAITING " ,- 

: RECEIVING) plnf o- >xferState= " RECEIVING " 

: CLOSING) plnf o- >xf erState= "CLOSING" ; 

: PAUSED) plnf o- >xf erState= " PAUSED" ; 



if ( (atpState == AtpConnect ion :: RECEIVING) || 
(atpState == AtpConnect ion :: PAUSED) ) 
{ 

IDFile * idf =( (AtpConnect ion* ) (p_conns- >GetAt (connect ionldx) ))- >idf ; 
plnf o- >f i leAmount = idf - >GetLoadedSi ze ( ) ; 
plnf o- >f ileSize = idf - >GetSi ze ( ) ; 

plnf o->f ileName = idf - >Get Fi leName ( ) ,- 



// HACK: Try to reduce the flicker in the things we display 
// in the dialog . . . 

CSt ring g_ t empUpda t eW i ndowTex t ; 

VOID UpdateWindowText (CWnd & window, const CString & newText ) 
{ 

if (window . m~hWnd == NULL) // HACK : Callback to update window called 

return; // after window destroyed: not a good test, 

// the threads are asynchronous. 

window . GetWindowText ( g_ t empUpda t eW i ndowTex t ) ,• 

if (g_tempUpdateWindowText != newText ) 
window . SetWindowText (newText ) ; 

) 

// Update progress -bar dialog . . . 

VOID CClientAppDlg : : LoopUpda t e Progres s Di a 1 og ( ) 
{ 

// TGT : do not update unless the window has been initialized 

if (m_hWnd == NULL) // Theo , I still think this might be the 

return; // wrong way to do this! 

PROGRESS_INFO State; 

GetProgressValues ( (PVOID) (ScState) ) ; 
if (State . fileSize < 0) 
{ 

CString rasg; 

rasg . Format ( "State . fileSize for transfer bad: % Id" , long ( St a t e . f i leSi 2 
HACKassert (msg, State . fileSize >= 0); 
} 

if (State . fi leAmount < 0) 
{ 

CString msg; 

msg . Format ( "State . fileAmount for transfer- bad: %ld" , 
long (State . fi leAmount ) ) ; 
HACKassert (msg. State . fileAmount >-- 0); 
} 

CString progressStr ingl ( State . xferState ) ; 
CString progressString2 ( " 

if (State . fileSize == 0) // Nothing transfering right now. 
{ 
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PROGRESS BAR . SetPos ( 0 ) ; 



e l se { //; Something transferring, 

if (State . fileAmount > State . fileSize) 



State . fileSize , %ld <= %ld". 



{ 

CString msg ; 

msg . Format ( "State . fileAmount not 

long (State . fileAmount) , long ( Stat e . f i leSi ze ) ) ,- 
-lACKassert (msg. State . fileAmount >= 0 ) 

int LerCent = int (MulDiv (State . fileAmount , 100 , State . fileSize) ) ; 
m_PROGRESS_BAR . SetPos (iPerCent) ; 
progressStringl += " : " + State . fileName , • 
progressString2 . Format ( "Transmitted %81d of %ld 

long (State . fileAmount ) , long (State . fileSize) ) ; 

UpdateWindowText (m_ProgressLabel 1 , progressStringl) ,- 
UpdateWindowText (m_ProgresaLabel2 , progressString2) ; 

// Debug display of dial state, thread priority ... 

UpdateWindowText (m_ProgressL.abel3 , " RAS Dial state: " 

+ State . dialState) ; 

UpdateWindowText (m_ProgressLabel4 , "Protocol thread priority: " 

+ State . threadPriority) ; 

// Debug display of network measurements . . . 

CString tTemp; 

tTemp. Format ("Ethernet total bytes: %llld", (long) State . ethernetCount ) 
UpdateWindowText (m_ProgressLabel5 , tTemp) ,- 

tTemp . Format (".. . Send/Receive: %s". State . ethernetBreakdown) ; 
UpdateWindowText (ra_ProgressLabel6 , tTemp) ; 

tTemp . Format (".. . most recent: %9ld, average: %9ld bytes/second" , 

(long) State . cur rent Ethernet Load , 

(long) State . averageEthernetLoad) ; 
UpdateWindowText (m_ProgressLabel7 , tTemp) ; 

tTemp. Format ("Protocol total bytes: %llld" , (long) State . protocolCount ) 
UpdateWindowText (m_ProgressLabel 8 , tTemp) ,- 

tTemp . Format ("-. - most recent: %91d, average: %91d bytes/second" , 

( long) State . currentProtocolLoad, 

(long) State . averageProtocolLoad) ; 
UpdateWindowText (m_ProgressLabel9 , tTemp) ; 

tTemp . Format ( "Comparison : %s". State . protocolComparison ) ; 
UpdateWindowText (m_ProgressLabel 10 , tTemp) ,- 



} 

VOID CClientAppDlg : : LoopCheckLoadRequests ( ) 
{ 



BOOL. bKilled = Ki 1 ITimer ( m_IDTimerLoadRequest ) ; 
HACKassert ("Cannot Kill Timer on m_IDTimerLoadReques t " , bKi 1 led) ; 

CheckAllSmartLoadRequests(m_atpserver, m_idf server, m_conf igVals ) ; 
int reqTime = AtpAttrib : ■• Parselnt (m_conf igVals [ "LoadRequestPeriod" ] ) ; 
if (reqTime > 0) 
{ 

m IDTimerLoadRequest = 
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SetTimer ( EVENT_LiOAD REQUEST, reqTime* 10 00L , NULL) ; 

HACKassert ( "Cannot SetTimer on m_IDTimerLoadRequest" ,tn_IDTimerLoadRequest != 0); 
} 



VOID CClientAppDlg : : LoopCl lent Pol lServer ( ) 
{ 

// Check in with the designated server . . . 

m_atpserver- >SetRequestTransf er ( 0 ) ; // Continue transfers. 

AtpAttrib providers ; 

providers . ParseLine (m_conf igVals [ " Providers " ] ) ,- 

theApp . Dial RASConnec t ion Automat ical ly ( ) ; 
m atpserver- >PollServers (providers ) ; 

VOID CClientAppDlg : :OnTimer (UINT nIDEvent) 

// TODO: Add your message handler code here and/or call default 
CDialog: : OnTimer (nIDEvent ) ; 

if (nIDEvent == EVENT PROGRESS ) // Progress Bar. 

BOOL. bKilled = Ki 1 ITiraer <m_IDTimerProgress ) ; 
HACKassert ( "Cannot Kill Timer on m_IDTimerProgress ", bKilled) ; 

LoopUpdateProgressDialog ( ) ; 

int updateTime = AtpAttrib Parselnt (m_conf igVals [ "StatusPeriod" ]) ; 

m_IDTimerProgress = SetTimer ( EVENT PROGRESS , updateTime, NULL) ; 

HACKassert ( "Cannot SetTimer on m_IDTimerProgress " , m_IDTimerProgress != 0 ) ; 
} 

if (nIDEvent == EVENT POLL SERVER ) // Check schedule. 

BOOL bKilled = KillTiraer (m_IDTimerPollSer\'er) ; / / No double-timer firing. 
HACKassert ( "Cannot Kill Timer on m_IDTimerPollServer ", bKilled) ; 

LoopClientPollServer ( ) ; // Check in with the designated server ... 

int pollTime = AtpAttrib : = Parselnt (m_conf igVals [ ■• CI lent Poll ingPeriod" ]) ; 
if (pollTime > 0) 
{ 

m_IDTimerPollServer = 

SetTimer (EVENT_POLL_SERVER, pollTime* lOOOL, NULL) ,- 
HACKassert ("Cannot SetTimer on m_IDTimerPol lServer " , m_IDTimerPol lServer != 0); 
} 

} 

if (nIDEvent == EVENT LOAD_REQUEST) // Check for SmartLoad requests 

LoopCheckLoadRequests () ; // Check in with the designated server ... 
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VOID CClientAppDlg : : OnClose ( ) 

^ // TODO: Add your message handler code here and/or call default 
CDialog: :OnClose() ; 

} 

// Callback routine: called by file transfer when the state 
// of a connection has changed. 

// For the moment, we don ■ t used the value passed, 

//we just poll to get the whole state information separately 

// and only use this routine to tell us that we need to check something. 

VOID CClientAppDlg:: ProceasConnectionState (const AtpConnect ion& conn) 

^ // (PVOID) &conn ; // To suppress compiler warning 

if (conn. state == AtpConnect ion :: PAUSED) 

LoopUpdateProgressDialog ( ) ; // To update dialog . . . 



Lnt CClientAppDlg :: DoModal ( ) 



// To get state. 



// TODO: Add your specialized code here and/or call the base class 
return CDialog: : DoModal () ; 



VOID CClientAppDlg: Unconfigured 
{ 

CDbgConf igDlg dlgDbgConf ig ; 

int nResultThing = dlgDbgConf ig - DoModal () ; 
HACKassert ( "Dummy assert", nResultThing == nResultThing); 
} 

// Set height and width of dialog to hide/show the debugging stuff 
//we have below the "public" part of the dialog on top ... 

VOID CClientAppDlg: : SetSecretDebugDialog ( ) 
{ 

CRect mainRect ,- 

GetWindowRect (tmainRect) ; // Returns screen coordinates 

int newHeight = mainRect . Height () ; 

int newWidth = mainRect . Width () ,- 

CPoint mainTopLef t = mainRect . TopLeft () ; 

if (m_bSecretDebugMode) 

r 

CRect bottomDebugRect; 

m SECRET DEBUG_TEXT_BOTTOM . GetWindowRect { &bot tomDebugRect ) ; 
CPoint bottomDebugBottomRight = bottomDebugRect .BottomRight ( ) ; 
newHeight = bottomDebugBottomRight .y - mainTopLef t .y + lO; 
newWidth = bottomDebugBottomRight .x - mainTopLef t . x + 10; 
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. } 

else{ 

CRect topDebugRect ; 

m_SECRET DEBUG TEXT_TOP . GetWindowRect (ttopDebugRect) ,- 

CPoint topDebugTopLeft = topDebugRect . TopLef t ( ) ,■ 

CPoint topDebugBottonnRight = topDebugRect . BottomRight ( ) ; 
newHeight = topDebugTopLeft . y - mainTopLef t . y - 2 ; 

newWidth = t opDebugBot tomRight.x - mainTopLef t . x + 10; 
} 

SetWindowPos ( 

NULL, // New Z order 

0, O, // New position to move to 

newWidth, newHeight, 

SWP_NOZORDER | SWP_NOMOVE) ; 

} 



// Check for a double - right -c 1 ick on the little "company icon" image in 
// the upper-left of the dialog. 

VOID CClientAppDlg : : OnRBut tonDblClk (UINT nFlags, CPoint point) 
{ 

// Get rect for our secret icon, and convert to client co-ordinates for the 
// main dialog, to match the mouse point location: 

CRect iconRect ; 

m_ICON_IMAGE . GetWindowRect ( kiconRect ) ; // Returns screen coordinates 
ScreenToClient ( &iconRect ) ; // Convert to dialog's client co-ordinates 

// Now that the mouse point and icon rect are in the same co-ordinate system, 
// check whether the user clicked in the icon: 

BOOL blnside = iconRect . Pt InRect (point ) ; 

// If they clicked inside, and they are holding down both the 
// control and the shift keys, bring up our secret feature . . . 

if (blnside && (nFlags & MK CONTROL) && (nFlags & MK_SHIFT) ) 

{ 

m_bSecretDebugMode = ! m_bSecretDebugMode ; 
// If in debug mode, hide the "secret" stuff in the dialog which is below 
// the progress bar . . . 

SetSecretDebugDialog ( ) ; 

} 

// "Now we return to your previously scheduled programming, in progress ..." 
CDialog: : OnRButtonDblClk (nFlags , point) ; 

} 



VOID CClientAppDlg: : OnBut tonAbout ( ) 
{ 

CAboutDlg dlgAbout ,- 
dlgAbout . DoModal ( ) ,- 

} 

VOID CClientAppDlg: : OnBut tonHelp ( ) 
{ 

15 
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MessageBox ( "Help for this dialog is not yet implemented : \n " 
"Sorry ! " , 

"Beta-Release Message " + g_Cl ientAppBuildDate , 
MB OK | MB_ICONEXCLAMATION) ; 



VOID CClientAppDlg : : OnDebugger ( ) 

DebugBreakO; // Just force a break to the debugger. 

VOID CClientAppDlg: : Onlnt errup tTrans f er ( ) 
{ 

// This is for debugging checks only . . - 

m_atpserver->SetRequestTransfer (0) ,- // Continue transfers. 

m _atpserver->SetRequestTransf er (-1) ; // Interrupt. 
// -1 means cut connection, don't restart. 

VOID CClientAppDlg: : OnPauseTransf er ( ) 

// This is for debugging checks only ... 

m atpserver- >SetRequestTransf er ( O ) ; // Continue transfers. 

nTatpserver->SetRequestTransfer<30> ,• // Delay thirty seconds 
// -1 means cut connection, don't restart. 



DID CClientAppDlg: : Ini t ial i zeProtocolS tuf f ( ) 



// ClientSocketControl 



atpserver = new SocketCont rol (m_conf igVals ) ; 

new ContentControl (&m_conf igVals) ,- // TGT 961130 

IDFServer (m_co:itent server , &m_conf igVals) ; 



m_content serve: 
m idfserver = i 



// initialize needs access to state-has-changed callback function in our dialog, 
if . ( !m_atpserver- initialize (m_idf server, this)) 

// NOTE • ^ TGT says ok to continue, even though socket is gronked : 

// effect is just that we can't initiate communications from the server, 

// because the client won't be listening on the socket ... 

// however, we can still poll, so we probably shouldn't tell the user 

// to reboot yet (so says Theo) , they will reboot eventually anyway. 

HACKassertf "Cannot bind to socket: you may continue anyway - .» , FALSE) ; 

// NOTE : We need to enforce client initiated connections rn this case (TGT) 



// Start moni 



tor thread 



if { !StartMonitorThread(m_atpserver, m_conf igVals ) ) 
AfxMessageBox( "Cannot start monitor thread!"); 
} 
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VOID CClientAppDlg : : UnlnitializeProtocolStuf f < ) 
{ m_atpserver->CloseConnections(); // TGT 9 6113 0 

Ki 1 IMoni torThread ( ) ; 

} 

CClientAppDlg: : -CClientAppDlg () // Destructor. 
{ 

delete m_atpserver ,- 

delete m_content server ; // JRW 961203 
delete m_idf server; 
} 

VOID CClientAppDlg: : OnBut tonSetup ( ) 

CConf igureDlg dlgConf igure (m_conf igVals ) ,- 

int nResultThing = dlgConf igure . DoModal ( ) ; 

if (nResultThing == IDOK) 

{ // Need to re-set polling times now 

KillLoopTimersO ; 
InitializeLoopTimers ( ) ; 

} 



VOID CClientAppDlg: : OnBut tonCl lent Pol lServerNow ( ) 

{ LoopClientPollServerO ; // Check in with the designated server 



id CClientAppDlg: : OnCheckSmart load { ) 
LoopCheckLoadRequests I ) ; 



ttifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: ClientApp customer client program 

$Workfile: Cl ient AppDlg - cpp $ 

SAuthor : Tding $ 

$Revision: 4 7 $ 

$Date: 2/03/97 10:24a $ 

SModtime: 2/03/97 10:23a $ 

$History: Cl ient AppDlg . cpp $ 

* ***************** Version 47 ***************** 

* User: Tding Date: 2/03/97 Time: 10:24a 

* updated in $/atp/ClientApp 

* Changes made for no RAS situation. 

* ***************** Version 46 ***************** 

* user: Jrward Date: 1/31/97 Time: 2:48 P 
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Updated in $/atp/Client App 
Global check- in. 

***************** Version 45 ***************** 
User: Jrward Date: 1/31/97 Time: 10:47a 

Updated in $/atp/C 1 ien t App 

Stubbed out some netstat asserts for now. 

***************** Version 44 ***************** 

User: Jrward Date: 1/30/97 Time: l:48p 

Updated in $ /atp/Cl ient App 

Check everything I have in, so Theo can get it. 

***************** Version 43 ***************** 

User: Jrward Date: 1/29/97 Time: 5:30p 

Updated in $ /atp/Cl ient App 
End-Of -Day checkin festival. 

***************** Version 42 ***************** 

User: Jrward Date: 1/28/97 Time: 1 : lip 

Updated in $/atp/ClientApp 

Afternoon check-in -- mostly fixes to installation, from all the 
SmartLoad fixes. 

***************** version 41 ***************** 
User: Jrward - Date: 1/27/97 Time: 5: lip 

Updated in $/atp/ClientApp 
SmartLoad sort of working ... 

***************** Version 40 ***************** 

User: Jrward Date: 1/2 7/97 Time: 11:01a 

Updated in $/atp/Cl ientApp 

Smartload stuff moved to separate source files smartload.* 

***************** Version 39 ***************** 

User: Jrward Date: 1/24/97 Time: 4:58p 

Updated in $ /atp/Cl ient App 

New .epsclient SmartLoad file handling: Just waiting on Theo ' s stuff, 
which he hasn't tested yet. 

***************** Version 38 ***************** 

User: Jrward Date: 1/23/97 Time: 4=50p 

Updated in $/atp/ClientApp 

Daily check-in: looks like I have the SmartLoad stuff working, I just 
need the new Client-side protocol code from Theo. 

***************** Version 37 ***************** 

User: Jrward Date: 1/23/97 Time: 3 : 04p 

Updated in $/atp/Cl ientApp 

SmartLoad request files handled at the file level (*. epsclient in 
LoadRequestDir directory) , but no processing of the innards of the 
files yet. 

***************** Version 36 ***************** 
User: Jrward Date: 1/23/97 Time: 12=26p 

Updated in $/atp/Cl ientApp 

Added /LoadRequest switch on clientapp.exe, so can use it as "helper" 
app with Web browsers for SmartLoad. Actual SmartLoad processing not 
done yet . 
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* ***************** version 34 ***************** 

* User: Jrward Date: 1/20/97 Time: 12 : 19p . . 

* Updated in $/atp/ClientApp 

+ Put a mutex around some of the "UGLY" stuff in our debugging display: 

* we were crashing . 

* ***************** Version 33 ***************** 

* User: Jrward Date: 1/13/97 Time: 5:02p 

* Updated in $/atp/ClientApp 

* End-of - the-day checkin. 

* ***************** version 32 ***************** 

* User: Jrward Date: 1/13/97 Time: 5 : OOp 

* Updated in $ /atp/Cl ient App 

* Cannot get ODBC calls in fake JRDerao.exe to work from the 

* ServerISAPI.DLL: work fine when running www server from debugger, but 

* throw when opening the CustomerDB.mdb database when running normally as 

* a service ! 

* ***************** Version 31 ***************** 

* User: Jrward Date: 1/13/97 Time: 9:36a 

* Updated in $/atp/Cl ientApp 

* Small change in "Setup" dialog for setting IDF directory: still more to 

* do. 

* ***************** Version 30 ***************** 

* User: Jrward _. Date: 1/07/97 Time: 12:16a 

* Updated in $ /atp/Cl ientApp 

* StatusPeriod now configurable. 

* ***************** Version 29 ***************** 

* User: Ttonchev Date: 1/06/97 Time: ll:19p 

* Updated in $/atp/Cl ientApp 

* Cleared update at block receive 

* ***************** Version 28 ***************** 

* User: Jrward Date: 1/06/97 Time: l:23p 

* Updated in $/atp/ClientApp 

* Fixed the SetSecret . . . stuff for hidding our debugging buttons, added 

* OnButtonSetup 

* ***************** Version 27 ***************** 

* User: Jrward Date: 1/03/97 Time: 12:56p 

* Updated in $/atp/Cl ientApp 

* Small fixes in debugging display dialog. 

* ***************** Version 26 ***************** 

* User: Jrward Date: 1/02/97 Time: 5 = 15p 

* Updated in $ /atp/Cl ientApp 

* End of the day check- in. 

* ***************** Version 25 ***************** 

* User: Jrward Date: 1/02/97 Time: 10:57a 

* Updated in $/atp/ClientApp 

* Added SOURC E_CONTROL_BLOC K stuff. 
//- 

// JRW 961128 Added EVENT SCHEDULE CHECK timer code: but no guts yet. 

// Changed to use updated AtpAttrib class for configuration values 

// JRW 961203 Small fixes. 

// JRW 961213 Hack to make window hidden on startup: 



Hi 




// The window flashes briefly the way we .do it here, the 

// real fix would be to have a non-Modal dialog: DoModal 

// always makes the window show up. 

// JRW 961215 Moved "connect to server at startup" to pollling loop in 

// ClientAppDlg from ClientApp: it was too hard getting the 

// non-Window SetTimer functions to work with the application 

// class. 

// JRW 961220 Moved protocol initialization, shut-down from CI ient App . cpp 

// to ClientAppDlg . cpp, to fix the problem of the update 

// call -back function being called after the main dialog was 

// already destroyed: 

// m_idf server, ra_atpserver, m_content server 

tfendif // SOURCE_CONTROL._BL.OCK 
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// ClientAppDlg . h : header file 
// 

ftifndef CLIENTAPPDLG H 

((define CLIENTAPPDLG H 



///////////////////////////////////////////////////////////////////////////// 
// CClientAppDlg dialog 

class CClientAppDlg : public CDialog, public IAtpProgressCallback 
{ 

// Construction 
public : 

CClientAppDlg (AtpAttrib & configVals, CWnd* pParent = NULL); 
// standard constructor 
-CClientAppDlg () ; // Destructor. 

virtual VOID ProcessConnectionState (const AtpConnect ion& conn); 

// Dialog Data 

//{ {AFX_DATA (CClientAppDlg) 

enum { IDD = IDD_CLIENT_DIALOG } ; 

CStatic m_ProgressLabellO; 

CS t a t i c m_S ECRET DEBUG TEXT_TO P ; 

CStatic m_S ECRET DEBUG TEXT BOTTOM ; 

CStatic m_ICON_IMAGE; 
CStatic m_ProgressLabel9 ; 
CStatic m_ProgressLabel8 ,- 
CStatic m_ProgressLabel7 ; 
CStatic m_ProgressLabel6 ,- 
CStatic m_ProgressLabel5 ,- 
CStatic m_ProgressLabel4 ,- 
CStatic m_ProgressLabel3 ; 
CStatic m_ProgressLabel2 ; 
CStatic m_ProgressLabel 1 ; 

CProgressCtrl m PROGRESS BAR ; 

// } }AFX_DATA 



ion overrides 



// ClassWizard generated virtual 

// { { AFX VIRTUAL (CClientAppDlg) 

publ ic : 

virtual int DoModal ( ) ; 
protected : 

virtual VOID DoDataExchange (CDataExchange* pDX) ,- 
/ / } } AFX__VIRTUAL 



// DDX/DDV support 



// implementation 



otected : 
HI CON 
HI CON 
UINT 
UINT 
UINT 



_hIconl6 ; 
_hIcon32 

m_IDTimerProgress ; 

m_IDTimerPoll Server ; 

m_IDTimerLoadRequest ,- 



// ID of timer for the progress-bar 

// ID for polling server. 

// ID for check- smart load-directory 



// Generated message map functions 

// { { AFX MSG (CClientAppDlg) 

virtual BOOL OnlnitDialog ( ) 

afx_msg VOID OnSysCommand (UINT nID, LP ARAM lParam); 

afx_msg VOID OnDestroy ( ) ; 

afx__msg VOID OnPaint { ) ,- 

afx_msg HCURSOR OnQueryDragI con { ) ; 
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afx msg VOID OnHideO ; 

afx^msg VOID OnTimer (UINT nlDEvent); 
a£x_msg VOID OnClose ( ) ; 

-,fv mqa VOID OnConf igureO ; , . 

afxmsg VOID OnRButtonDblClk (UINT nFlags, CPomt point), 
afx msg VOID OnBut ton About ( ) ; 
afy'msq VOID OnButtonHelp ( ) ; 

afxlmsg VOID OnButtonClientPollServerNow ( ) ; 

afx msg VOID OnDebugger ( ) ; 

afx~msg VOID OnlnterruptTransferO ; 

afxlmsg VOID OnPauseTransf er ( ) ; 

afx_msg VOID OnButtonSetup ( ) ; 

afx msg void OnCheckSmar t load ( ) ; 

// }7afx_msg 

DECLARE MESSAGE MAP ( ) ; 



afx 



ms g LRESULT On N otifyIcon( W P A RAM wParam, LPARAM IParam); 



private : 

/ / Theo ' s stuff - ■ • 

AtpAttrib & m_configVals; 
IDFServer * m_idf server ,- 

SocketControl * m_atpserver; 
ContentControl *_m_content server ; 

BOOL. m_bStartHidden; „ seC ret debugging" part of dialog 

BOOL' m bSecretDebugMode ; // ° 

otd" STUFF // moved to SocketControl 
^"BOOL ServerConnectionAlready (const CString * serverName) , 

«endif OLD STUFF 

VOID KillLoopTimersO ; 

VOID initializeLoopTimers ( ) ; 

VOID LoopClientPollServer () ; 

VOID LoopCheckLoadRequestsO; 

VOID LoopUpdateProgressDialogO , // To update progress bar ... 
VOID G etProgressValues(PVOID pProgressInf o) , 

VOID SetSecretDebugDialogO r 
VOID InitializeProtocolStuf f () ; 
VOID unlnitializeProtocolStuff () ; 



program 
Reserved . 



Bifdef SOURCE_CONTROL_BLOCK 
Project Name, E-PS CI i en t /Server 

roovriQht 1996, 1997. All Rights Reserved. 
SUBSYSTEM : Client App customer client program 
$Workfile: ClientAppDlg.h $ 
~ SAuthor: Jrward $ 

$Revision: 37 $ 

$Date-. 1/31/97 2 : 48p $ 

SModtime: 1/25/97 7 ; 58p $ 



$H: 



istory: ClientAppDlg.h $ 

************ Version 37 
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User: Jrward Date: 1/31/97 Time: 2:48p 

Updated in $/atp/Cl ient App 
Global check- in. 

***************** Version 36 ***************** 

User: Jrward Date: 1/31/97 Time: 10:47a 

Updated in $/atp/ClientApp 

Stubbed out some netstat asserts for now. 

***************** Version 35 ***************** 

User: Jrward Date: 1/30/97 Time: l:48p 

Updated in S/atp/ClientApp 

Check everything I have in, so Theo can get it. 

***************** Version 34 ***************** 

User: Jrward Date: 1/29/97 Time: 5:30p 

Updated in $ /atp/Cl ient App 
End-Of-Day checkin festival. 

***************** version 33 ***************** 

User: Jrward Date: 1/28/97 Time: l=llp 

Updated in $ / a tp/ CI ient App 

Afternoon check-in -- mostly fixes to installation from all the 
SmartLoad fixes . 

***************** Version 32 ***************** 
User: Jrward Date: 1/27/97 Time: 5: lip 

Updated in $/atp/Cl ient App 
SmartLoad sort of working . . . 

***************** Version 31 ***************** 

User: Jrward Date: 1/27/97 Time: 10:29a 

Updated in $/atp/ClientApp 

Smartload stuff now in separate sources SmartLoad . cpp , SmartLoad. h 

***************** Version 30 ***************** 

User: Jrward Date: 1/24/97 Time: 4 : 58p 

Updated in $/atp/ClientApp 

Added button for "Check Smartload Now" 

***************** Version 29 ***************** 

User: Jrward Date: 1/23/97 Time: 4 : 50p 

Updated in $ /atp/Cl ientApp 

Daily check-in: looks like I have the SmartLoad stuff working, I just 
need the new Client-side protocol code from Theo. 

***************** version 28 ***************** 

User: Jrward Date: 1/23/97 Time: 3 : 04p 

Updated in $ /atp/Cl ientApp 

SmartLoad request files handled at the file level (*.epsclient in 
LoadRequestDir directory) , but no processing of the innards of the 
files yet. 

***************** Version 27 ***************** 

User: Jrward Date: 1/23/97 Time: 12:26p 

Updated in $ /atp/Cl ient App 

Added /LoadRequest switch on clientapp.exe, so can use it as "helper" 
app with Web browsers for SmartLoad. Actual SmartLoad processing not 
done yet . 
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***************** Version 26 *************** 
User: Jrward Date: 1/20/97 Time: 12 : 19p 

Updated in $ / atp/Cl ientApp debugging display. 

Put a mutex around some of the UGLY sturr in oux <j-=j~. ys ^ ^ 
we were crashing. 

***************** Version 25 ***************** 

User: Jrward Date: 1/13/97 Time-. S : 02p 

Updated in $/atp/ClientApp 
End-of - the-day checkin. 

* ***************** Version 24 ***************** 

* user: Jrward Date: 1/13/97 Time: 5:00p 

* Updated in $/atp/ClientApp 

* cannot get ODBC calls in fake JRDemo.exe to work from the 

* ServerlXpi.DLL: work fine when running www server from debugger but 

* tnrow whe~n opening the CustomerDB.mdb database when running normally as 

* a service ! 

* ***************** version 23 ***************** 

* user: Jrward Date: 1/13/97 Time: 9=36a 

* do. 

* ***************** Version 22 ***************** 

* User: Jrward Date: 1/07/97 Time: 12:16a 

* Updated in $/atp/ClientApp 

* StatusPeriod now configurable. 

* ***************** Version 21 ***************** 

* User: Ttonchev Date: 1/06/97 Time: ll:20p 

* updated in $/atp/ClientApp 

* ***************** Version 20 ***************** 

* user: Jrward Date-. 1/06/97 Time: 1 = 23p 

I U F ?fed e thi n s^s:cr C et ient s^ff for bidding our debugging buttons, added 

* OnButtonSetup 

* ***************** Version 18 ***************** 

* user: Jrward ' Date: 1/02/97 Time: 10:57a 

* updated in $ /atp/Cl ientApp 

* Added SOURCE_CONTROL_BLOCK Stuff. 

// jrw 961127 Added stuff for EVENT SCHEDULE — CHECK Timer function 

f / t non-Window LtTimer functions to work with the application 

^ ™ 961220 S='ef now that all engineers agree 
" this was not the ^lutron^ C l ientApp . c PP 

// J R W 961220 ^^-Sig^^o'fix the problem of the update 
^ call-back function being called after the mam dxalog was 

// already destroyed: 

mjdfserver, m_atp S erver, m_content server 
#endif // SOURCE_CONTROL_BLOCK 

#endif // CLIENTAPPDLG H 
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// atpmemfile.cpp: implementation of class AtpMemFi 

((include "stdafx.h" 

((include " atpmemf i le . h" 

((include "atpdata.h" 

((include " atpexcept . h" 

((ifdef DEBUG 

((define new DEBUG NEW 

(tundef THIS FILE 

static char THIS FILE [] = FILE ; 

((endif 

AtpMemFile: :AtpMemFile (AtpAttrib& attrib) = AtpFil 
SetAttributes(attrib) ; 
BindToFile (new CMemFile ( ) ) ; 

} 

AtpMemFile : : -AtpMemFile ( ) { 
delete GetFileO ; 

} 

void AtpMemFile: -. Get At tributes (AtpAttrib& attrib) 
AtpAttrib arg; 

AtpFile: : GetAttributes (arg) ; 
long size; 

tr ^iie = AtpAttrib: = Parselnt (arg [ATP_ARG_S I ZE] ) 
} catch ( Format Except ion ex) { 
ex ; 

size = o ,- 

} 

long fsize = Get Fi le ( ) - >GetLength ( ) ; 

if (fsize ! = size) { . 

arg [ATP_ARG_SIZE] = AtpAttrib :: Unparselnt ( f si 

SetAttributes (arg) ; 

} 

attrib = arg; 



((ifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS cl lent /Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: EPS Protocol 

SWorkfile-. atpmemfile.cpp $ 

$Author: Jrward $ 

$Revision: 3 $ 

$Date: 1/27/97 12 : 07p $ 

$Modtime: 1/27/97 12:06p $ 

$History: atpmemfile.cpp $ 

* ***************** Version 3 ********** 

* user: Jrward Date: 1/27/97 Tim. 

* updated in $/atp/ Protocol 

* Added VSS history stuff . 
((endif // SOURCE_CONTROL_BLOCK 
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// 

// C+ + header file 
// (c) 1996 ACS 
// 

tfifndef _ATPMEMFILE_H_ 
U define ATPMEMFILE H 

# include "stdafx.h" 
^include "atpfile.h" 

class AtpMemFile : public AtpFile { 
private •- 

// disallow copy contructor and assignment 

AtpMemFile (const AtpFile&); 

void operator= (const AtpMemFile&) ; 

public : 

AtpMemFile (AtpAttribt attrib) ; 
virtual -AtpMemFile ( ) ; 

virtual void GetAttributes (AtpAttribt attrib); 



# end if // ATPMEMFILE H 

// End of headers 



ttifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: E-parcel.com 

$Workfile: atpmemfile.h $ 

$ Author: Jrward $ 

$Revision: 2 $ 

$Date: 1/27/97 j 2 : 13p $ 

$Modtime: 1/27/97 12: lip $ 

$History: atpmemfile.h $ 

* ***************** Version 2 ***************** 

* User: Jrward Date: 1/27/97 Time: 12 = 13p 

* Updated in $/ atp/ Include 

* Added VSS history stuff, 
tfendif // SOURCE_CONTROL_BLOCK 
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// atpserver . cpp : implementation of the AtpServerSocket class 

((include <stdlib.h> 
{(include "stdafx.h" 



(tin 




<assert . h> 


#in 


elude 


"atpserver . h" 


♦fin 


elude 


"atpexcept . h" 


Itin 




"atpdata . h" 


llin 


elude 


" atpraemf ile.h 


tfin 


elude 


" atprepf ile . h 


»in 


elude 


"utility -h" 



ttifdef _DEBUG 

Sdefine new DEB UG N EW 

(fundef THIS FILE 

static char THIS_FILE[] = FILE ; 

ttendif 

((define CONFIGFILEDIR " \\\\THESERVER\\EPS\\SERVER\\USERCONFIG\\ *' 
((define MAX_CONT_PERIOD 30 

((define MAX DAY H I ST- 15 

((define MAX^INTERVAL (2*60*60) 
((define BENCHMARK S I ZE 16 

AtpServerSocket :: AtpServerSocket ( AtpFi leServer *rep_server, CCustoraerDB *db) : AtpSocket 
{ 

m_rep_!!erver = rep_server; 
m_db = db; 

} 



AtpServerSocket: : -AtpServerSocket ( ) { 
}; 

// Return empty string to deny access 

CString AtpServerSocket ServerObtainPassword (CString username) { 
CSt ring pass = " " ; 
Receiverlnfo info; 
CReeeiverlnf o *pList ,- 
pList = m_db- >GetReceiverList ( ) ,- 
if (IpList) return pass ; 

if (pList - >FindRecei ver ( inf o , username ) ; 

pass = inf o . Password 
m_db- >ReleaseReceiverList (pList) ; 
return pass; 

} 

void AtpServerSocket Run { ) { 
try { 

InitializeServerO ; 

if ( ! AuthenticateServer ( ) ) return; 
ServerLoginUser ( ) ; 
ServerLoop ( ) ; 
} catch (CMyException ex) { 

Closet) ,- 

} 

ServerLogoutUser ( ) ; 

} 
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aid AtpServerSocket :: RunAnon ( ) { 
cry { 

InitializeServerO ; 
ServerLoop ( ) ; 
} catch (CMyException ex) { 

Close (.) ; 



old AtpServerSocket : :UpdateTraf£ icStats < Receiverlnf o& info) { 
SocketTraf f ic traffic = GetSocketTraf f ic () ; 
info . AvThroughput = < info . AvThroughput* info . LoginCount+ 

traf f ic . AverageOut* traffic - IntervalOut ) / 
( info . LoginCount + traf f ic . IntervalOut + 1 ) ,- 
inf o . LoginCount += traf fic . IntervalOut ; 

if (info . LoginCount > MAX INTERVAL) 

inf o . LoginCount = MAX INTERVAL ; 

roid AtpServerSocket : : UpdatePingTimes (Receiverlnf o& info) { 

tr CTime now = AtpAttrib = : ParseTime ( AtpAttrib , : UnparseTime (CTime : = GetCurrentTime ( ) ) ) 
CTime last = AtpAttrib :: ParseTime ( inf o . LastConnect ) ,- 
CTimeSpan span =~ now - last ,- 

if (span. GetTotalMinutes () < MAX_CONT_PERIOD) { 
// assume user has been online in the meantime 
if (now.GetDay () != last . GetDay { ) ) { 

info.TodayLoginTime += 24*60 - ( last . GetHour ( ) * 6 0 + last .GetMinute (>) ; 

// calc day average 

info. AvDayLoginTime = ( inf o . AvDayLoginTime * inf o . DayCount + 

info.TodayLoginTime) / ( inf o . DayCount + 1 ) ; 

if f< (info. DayCount > MAX DAY H 1ST) inf o . DayCount = MAX_DAY_HIST; 

info.TodayLoginTime = now .GetHour () *60 + now . GetMinute () ; 

} 

else 

info.TodayLoginTime += span . GetTotalMinutes () ; 
} catch (FormatException ex) { 

HACKassert < "Bad DB entry format (LastConnect)", TRUE) ; 
Info. LastConnect = AtpAttrib: , UnparseTime ( CTime : : GetCurrentTime () ) ; 

) 

void AtpServerSocket :: ServerLoginUser ( ) { 
Receiverlnfo info; 
CReceiverlnf o * pList ,- 
pList = m_db- >GetReceiverList ( ) 
if ( IpList) return; 
* if ( P List->FindReceiver (info, GetUserName ( ) ) == FALSE) ( 
m db- >ReleaseReceiverList (pList) ; 



_RegisteredNow = FALSE,- 



12 0 



(! info . Registered) { 
m_RegisteredNow = TRUE; 
info. Registered = TRUE; 
info . AvThroughput = 0 ; 
nf o . Eff Throughput = 0; 
nf o . AvLoginDuration = 0 ,- 
nfo.LoginCount = 0 ,- 
info. AvDayLoginTime = 8*60*60; 

nf o . DayCount = 0 ,- . 
.nfo.LastConnect = AtpAttrib : : UnparseTime (CTime : = GetCurrentT ime ( ) ) ,- 
info . TodayLoginTime = 0 ; 

} 

inf o . HostName = m_peerhost ,- 
UpdatePingTimes ( inf o) ; 

pList - >UpdateReceiver ( info) ; 
tn_db- >ReleaseReceiverList (pList ) ; 

oid AtpServerSocket: :ServerLogoutUser() { 
Receiverlnfo info; 
CReceiverlnfo * pList ; 
pList = m_db->GetReceiverL.ist () ; 
if ( IpList) return; 

if (pListoFindReceiver (info, GetUserName ( ) ) == FALSE) ( 
m db- >ReleaseReceiverList (pList ) ; 



UpdatePingTimes (inf o) ; 
UpdateTraf f icStats (info) ; 

pList - >UpdateReceiver ( inf o) ; 
rr._db- >ReleaseReceiverbist (pList) ,- 

,oid AtpServerSocket : = ServerHandleSend ( AtpAttrib& arg) { 
BOOL special = FALSE; 

^Lecial = ( ! arg (ATP ARG SPECIAL] . IsEmpty ( ) && 

AtpAttrib : : ParseBooL (arg [ATP_ARG_SPECIAL] ) ) ; 
} catch < Format Except ion ex) { 

} 

CString name = arg [ATP ARG NAME] ; 

if ( ! special"; { 

ServerRe j ectSend ( ) ; 



f (name == AT P_F ILE CON FIG) 

AtpAttrib config; 
AtpMemFile afl(arg); 
ServerAcceptSend(afl) ; 
CFile *fl = af 1 .GetFile () ; 
f 1 - >SeekToBegin { ) ; 

CArchive ar(fl, CArchive : : 1 
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conf ig . ParseFile (ar ) ; 

Receiverlnfo info; 
CReceiverlnfo * pList; 
pList = m_db- >GetReceiverLiat ( ) ; 
if (ipList) return; 

if (pLisC->FindReceiver (info, GetUserName ( ) ) == FALSE) { 
m_db- >ReleaseReceiverList (pList) ; 

} retUrn ' 

pList->GetConfigInfo(info) ; 

if ( info . ComputerConf ig . I sEmpty ( ) || ! Fi leExis t s ( inf o . ComputerConf ig ) 
// create a unique file 
char tmp [MAX PATH] = 

GetTempFileName (CONFIGFILEDIR, "uc", 0, tmp) ,- 
inf o . ComputerConf ig = tmp; 

} 

try { 

CFile *fl = NULL; 

fl = new CFile ( inf o . ComputerConf ig, CFile :: modeWrite || 

CFile: : modeCreate) ; 
CArchive ar(fl, CArchive :: store) ,- 
conf ig . UnpareeFile (ar ) ; 
ar . Close ( ) ; 
delete fl; 
} catch (CFileException *e) { 
e- >Delete ( ) ,- 

} 

pList- >SetConf iglnf o ( info) ; 
ra_db->ReleaseReceiverList (pList) ,- 
return ; 

} ; 

ServerRe jectSend ( ) ; 



oid AtpServerSocket : : ServerHandleRecv (AtpAttribt arg) { 
BOOL special = FALSE, - 
try { 

special = ( ! arg [ATP_ARG SPECIAL] . IsEmpty ( ) && 

AtpAttrib: : ParseBool (arg [ATP ARG SPECIAL] ) ) ; 

} catch ( FormatExcept ion ex) { 

} 

CString name = arg [ATP_ARG NAME] ; 

if (special) { 

if (name == ATP_FILE REGISTRATION) { 

AtpMemFile afl(arg) ,- 

ServerAcceptRecv (af 1 ) ; 



if (name == ATP FILE LIST ) { 

AtpMemFile afl(arg); 
CFile *fl = af 1 .GetFile ( ) ; 
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CString list = m_rep_server->GetReceiverPackageList (GetUserName ( ) ) ,- 
f l->Write ( (LPCSTR) list, list . GetLength ( ) ) ; 
f l->Flush( ) ,- 

ServerAcceptRecv(afl) ; 

} 

if (name == ATP F IIjE BENCHMARK) { 

AtpMemFile af 1 (arg) ,- 
CFile *fl = afl.GetFilef) ; 

char buf [1024] ; 

for (int i = 0; i < BENCHMARK S IZE; i++) 

fl->Write(buf , 1024); 
f l->Flush() ,- 

ServerAcceptRecv (af 1 ) ; 
return ; 

} 

ServerRe j ectRecv { ) ; 
return ; 

} 

AtpFile *af 1 = m_rep_server- >CreatePackageFile (GetUserName () , arg) ; 
if (!afl) { 

ServerRej ectRecv () ; 

return ,- 

} 

try { 

ServerAcceptRecv ( *af 1 ) ; 
} catch (CMyException ex) { 
delete af 1; 

throw; 

} 

delete af 1 ; 

} 

///// Debugging utilities ///// 
tfifdef _DEBUG 

void AtpServerSocket : : AssertValid ( ) const 
{ 

AtpSocket: : AssertValid ( ) ; 

} 

void AtpServerSocket :: Dump (CDumpContextSt dc ) const 
{ 

AtpSocket: :Dunnp(dc) ; 

} 

ttendif / / DEBUG 



ttifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E-PS Inc. 
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Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: ServerProtocol 

$Workfile: atpserver.cpp $ 

$ Author : Jrward $ 

$Revision: 12 $ 

SDate: 1/27/97 11:21a $ 

$Modtime: 1/27/97 11:21a $ 

$History: atpserver.cpp $ 

* ***************** version 12 ***************** 

* User: Jrward Date: 1/27/97 Time: 11:21a 

* Updated in S/atp/ServerProtocol 

* Added VSS history stuff, 
ttendif // SOURCE_CONTROL_BLOCK 
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// atpsock.h : interface of the CAtpSocket class 

(fifndef ATP SERVER H 

((define ATPSERVER H 

((include "stdafx.h" 

((include "atpsock.h" 

((include " AtpFi leServer . h " 

((include "CustomerDB.h" 

typedef long AtpConnUlD ,- 

class AtpConnection { 
public : 

enum AtpState { 

CONNECTING, // Connection just created 

WAITING // Connection established; waiting for transfer 

RECEIVING, // Transfering data 

PAUSED, // Transfer paused for some reason 

CLOSING // Connection will be closed 

} ; 

AtpConnUlD uid; 
AtpState state; 
CString peer_address ,- 
unsigned int peer_port ; 
SocketTraf f ic *traffic; 

IDFile *idf; //Valid only if RECEIVING, or PAUSED 

}; 

class AtpServerSocket : public AtpSocket { 
// Inherited public methods: 

// initializeserverl), Authent icateServer ( ) , ServerLoopO 

PU At P ServerSocket < AtpFileServer *rep_server , CCustomerDB *db) ; 
virtual -AtpServerSocket ( ) ; 

void Run { ) ; 
void Run Anon ( ) ; 

protected: . 
virtual CString ServerObtainPas sword { CString username); 
virtual void ServerLoginUser ( ) ; 
virtual void ServerLogoutUser ( ) ; 

//.virtual void ServerNegot iateBlock ( long cl ient_pref erred) ; 
virtual void ServerHandleSend ( AtpAtt rib& arg) ; 
virtual void ServerHandleRecv (AtpAtt rib& arg); 

private: . c . 

void UpdateTraf f icStats ( Receiver Info& xnfo) ; 
void UpdatePingTimes ( Receiver Info& info) ; 

protected -. 

({ifdef DEBUG 

void AssertValid ( ) const, - 
.. void DumptCDumpContextt dc ) const; 
#endif // DEBUG 
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private : 

AtpFileServer *m_rep_ser 
CCus tome rDB *m_db; 
BOOL m_RegisteredNow; 

} : 

ttendif // ATPSERVER H 



ttifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: E-parcel.com 

$Work£ile: atpserver.h $ 

$Author: Jrward $ 

$Revision; 6 $ 

$Date: 1/27/97 12 : 13p $ 

$Modtime: 1/27/97 12: lip $ 



$History: atpservei 



-h $ 



* ***************** Version 6 *** 

* user: Jrward Date: 1/27/97 

* Updated in $ /atp/ Include 

* Added VSS history stuff- 
#endif // SOURCE_CONTROL_BLOCK 



Time: 12:13p 



// 

// C++ code file 
// (c) 1996 ACS 
// 

((include "stdafx.h" 
((include <assert.h> 

((include "SSocketControl .h" 
((include " atpexcept . h" 
((include "sockutil .h" 

((ifdef _DEBUG 

((define new DEBUG NEW 

ttundef THIS_FILE 

static char THIS_FILE[] = FILE ; 

((endif 

SSocketControl: : SSocketControl { ) { 
rn_lsock = NULL; 
m_al low_anon = FALSE; 

} 

SSocketControl: : -SSocketControl ( ) { 
if (m_lsock) delete m_l sock ; 
m_lsock = NULL; 

} 

BOOL SSocketControl : : Initialize (AtpFileServer *reps, 
CCustoraerDB *db, 
IAtpProgressCallback *pPCB) { 

m_reps = reps ; 
m_db = db,- 
m_pPCB = pPCB; 

m_lsock = new CListeningSocket (this) ; 

if ( tn 1 sock - >Create { ATP SERVER PORT ) && m_lsock- >Listen ( ) ) 

return TRUE; 
return FALSE; 

} 

void SSocketControl :: DistributeFiles ( ) { 

Af xBeginThread (StartDistributionThread, this, 0); 
//StartDistributionThread ( this ) ; 

} 

UINT SSocketControl :: StartDistributionThread (LPVOID pParam) { 
{ (SSocketControl * ) p Pa ram) - >RunDi s t ribut ionThread { ) ; 
return 0; 

} 



void SSocketControl : : RunDistributionThread ( ) { 
BOOL err ; 

- Receiver Info Receiver, newReceiver ; 
CReceiverlnfo * pList; 
BOOL bReturn; 

pList = m_db- >GetReceiverList ( ) ; 
if ( IpList) return; 
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err = FALSE; 

bReturn = pList - >Get Firs t Receiver (newReceiver) ; 
if (FALSE == bReturn) 
err = TRUE ; 

while (bReturn) { 

Receiver = newReceiver; 

bReturn = pList - >GetNextReceiver (newReceiver ) ; 
if ( ! err && Receiver . Registered) { 

SOCKET sock = Socket Connect To ( Receiver . Host Name , ATP_PORT) ; 
if (sock != INVALID_SOCKET) { 

Threadlnfo *info = new Threadlnf o ( ) ; 
info - >me = this; 
info->sock = sock; 

AfxBeginThreadfStartDistributionSocketThread, info, 0),- 

} 

} 

err = FALSE, - 
if (FALSE == bReturn) 
err = TRUE ; 

} 

m_db- >ReleaseReceiverList (pList) ,- 



UINT SSocketControl : : StartDistribut ionSocketThread (LPVOID pParam) { 
Threadlnfo * inf o = (Threadlnfo *) p Pa ram ; r - 
inf o- >me- >RunServerSocket ( inf o- >sock) ; 
delete info; 
return 0 ,- 

} 

void SSocketControl: : RunDistributionSocket (SOCKET sock) { 
// not used so far -- use RunServerSocket Instead 

} 

void SSocketControl : : ProcessPendingAccept (CAsyncSocket *sock) { 
//for (int i = 0; i < m_todelete . GetSize ( ) ; i++) 
// delete m_todelete [ i ] ; 
//m_todelete . RemoveAll ( ) ; 

CAsyncSocket *atp_sock = new CAsyncSocket () ,- 
if ( ! sock- >Accept ( *atp_sock) ) { 

delete atp_sock; 

return ; 

} 

Threadlnfo * info = new Threadlnfo ( ) ; 
info- >me = this; 

info->sock = atp_sock- >De tach ( ) ; 
delete atp_sock; 

Af xBeginThread ( Start SocketThread , info, 0 ) ,- 
//m_conns . Add {atp_sock- >GetConnectionState { ) ) ; 

} 

UINT SSocketControl =: StartSocketThread (LPVOID pParam) { 
Threadlnfo *info = (Threadlnfo *) pParam; 
inf o- >me- >RunServerSocke t (info->sock) ; 

2 
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delete info; 
return 0 ; 

oid SSocketControl : : RunServerSocket (SOCKET sock) { 
AtpServerSocket ssock (m_reps , m_db) ; 
if (! ssock .Attach (sock) ) { 
assert (FALSE) ; 
return ,- 

} 

if (m_allow_anon) 

ssock . RunAnon ( ) ; 
else 

ssock . Run { ) ; 

I 

ro id SSocketControl :: ProcessClose ( CAsyncSocket *sock) { 



// JRW: Return state reference for a given connection: 

// IN: uid: id of the connection 

// OUT: conn: AtpConnection reference 

BOOL SSocketControl: : Get Connect ionState ( long uid. AtpConnection^ conn) { 
return FALSE; 

} 

// JRW: Return pointer to array of all connections. 

const CPtrArray* SSocketControl Get Al IConnect ionStates ( ) { 
return &m conns ; 

} 

SocketTraf f ic SSocketControl •- : Get SocketTraf f ic ( ) { 
SocketTraf f ic traffic; 
return traffic; 

} 

// End of code 

ttifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: Server Protocol 

$Workfile: SSocke tCont rol . cpp $ 

$Author: Jrward $ 

$Revision: 12 $ 

$Date: 1/27/97 11:21a $ 

$Modtime= 1/27/97 11:21a $ 

$History: SSocketControl . cpp $ 

* ***************** Version 12 ***************** 

* user: Jrward Date: 1/27/97 Time-. 11:21a 

* Updated in $/atp/ Server Protocol 
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* Added VSS history stuff, 
(tendif // SOURCE_CONTROL_BLOCK 
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// 

// C++ header file 
// (c) 1996 ACS 
// 

((ifndef _SSOCK.ETCONTROL._H_ 
((define _SSOCKETCONTROL_H_ 

(tinclude "stdafx.h" 

(♦include " callback . h" 

((include "Istnsock.h" 

((include "atpsock.h" 

((include " atpf ileserver . h" 

((include "atpserver . h" 

((include "CustoraerDB.h" 

const ATP_PORT = 608; 

const ATP SERVER PORT = 609; 

// JRW proper "public" on everything . - . 
class SSocketControl : public ISockCal lback 

public lAtpCallback, public IAtpStateCal lback 

{ 

public: 

SSocketControl ( ) ; 

virtual -SSocketControl () ; 

Virtual void ProcessPendingAccept (CAsyncSocket *sock); 
virtual void ProcessClose (CAsyncSocket *sock); 

virtual BOOL. GetConnect ionState { long uid. AtpConnect ion* u conn); 
virtual const CPtrArray* Get AllConnect ionStates () ; 
virtual SocketTraf fic GetSocketTraf fic () ; 



BOOL. Initialize (AtpFileS 
void DistributeFiles ( ) ; 

private : 

struct Threadlnfo { 
SSocketControl* me; 
SOCKET sock ; 



erver *reps, CCustomerDB* db, lAtpProgressCal lback *pPCB) 



static UINT StartSocketThread(LPVOID pParam) ; 
void RunServerSocket (SOCKET sock) ; 

static UINT StartDistributionThreadfLPVOID pParam) ; 
void RunDistributionThreadO; 

static UINT S tartDistributionSocketThread(L.PVOID pParam) ; 
void RunDistributionSocket (SOCKET sock) ; 



public : 

BOOL. m_allow_anon; 



private : 

AtpFileServer *m_reps; 



xax 



CCusLomerDB *m_db; 
IAtpProgressCallback *m_pPCB; 



CListeningSocket *m_lsock; 
CPtrArray m_conns ; 



lendif // _SSOCKETCONTROL_H_ 
// End of headers 

flifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client /Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: E-parcel . com 

$Workffile: SSocketControl.h $ 

$Author: Jrward $ 

$Revision: 4 $ 

$Date: 1/27/97 12 : 13p $ 

$Modtime: 1/27/97 12 : 12p $ 

$History: SSocketControl.h $ 

* ***************** Version 4 *********** 

* User: Jrward ~ Date: 1/27/97 Time: 

* Updated in $/atp/ Include 

* Added VSS history stuff . 
tfendif // SOURCE_COWTROL BLOCK 
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// serverl.cpp = Defines the class behaviors for the application. 
// 

((include "stdafx.h" 
(♦include "Serverl.h" 
((include "ServerlDlg.h" 

((include "CustomerDB.h" 

((include " RepServer - h" 

((include " SSocketControl . h" 

((include "DistribServer . h" 

((ifdef _DEBUG 

((define new DEBUG NEW 

(tundef THIS FILE 

Static Char THIS FILE [] = FILE ; 

(fendif 

((define US ERDB DAT ASOURC ENAME "CustomerDB" 

////////////////////////////////// /////////////////////////////////////////// 
// CServerlApp 

BEGIN_MESSAGE_MAP (CServerlApp, CWinApp) 

//{{AFX MSG MAP (CServerlApp) . m=J ^^ G hP rp 

/ / NOT E - the ClassWizard will add and remove mapping ^ os here . 
// DO NOT EDIT what you see in these blocks of generated code! 
/ / } } AFX MSG 

ON COMMAND ( ID HELP , CWinApp: :OnHelp) 

END_MESSAGE_MAP ( ) ; 

/////////////////////////////////// ////////////////////////////////////////// 
// CServerlApp construction 



CServerlApp: : CServerlApp ( ) 



// TODO: add construction code here, 
// Place all significant initiaiizati 



Initlnstance 



} 

///////////////////////////////////// //////////////////////////////////////// 
// The one and only CServerlApp object 

CServerlApp theApp; 

//////////////////////////////// ///////////////////////////////////////////// 
// CServerlApp initialization 

BOOL CServerlApp: •. Initlnstance ( ) 
^ if ( ! Af xSocketlnit { ) ) 

{ Af xMessageBox { IDP_SOCKETS_INIT_FAILED) 
return FALSE; 



// Initialize OLE libraries 
if ( ! AfxOlelnit {) ) 

1 Af xMessageBox ( IDP OLE INIT — FAILED) ; 
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return FALSE; 

} 

// Standard initialization 

//If you are not using these features and wish to reduce the sxze 
// of your final executable, you should remove from the following 
// the specific initialization routines you do not need. 

ttifdef AFXDLL , ■, T 

Enable3dControls{); // Call this when using MFC in a shared DLL 

#e Enable3dControlsStatic ( ) ,• // Call this when linking to MFC statically 

tfendif 

// Parse the command line to see if launched as OLE server 
if (RunEmbedded ( ) |] RunAutomated ( ) ) 

// Register all OLE server (factories) as running. This enables the 
// OLE libraries to create objects from other applications. 
COleTemplateServer : : RegisterAll ( ) ; 

// Application was run with /Embedding or /Automation. Don't show the 
// main window in this case, 
return TRUE ; 

} 

// When a server 'application is launched stand-alone, it is a good idea 



to update the system registry in case 
COleObject Factory: •- UpdateRegistryAll () ; 



it has been damaged. 



CCustomerDB *db = new CCus tomerDB ( ) ; 

if ( !db->Connect (USERDB DATASOURCENAME ) ) { 

AfxMessageBox ( "Cannot connect to user database . \n ") ; 

return FALSE ; 

} 

RepServer *rep = new RepServer () ; 
//rep . AddDirectory ( "D : \\idf iles" ) ; 

DistribServer *distrib = new DistribServer (db) ; 

SSocketControl *atp_server = new SSocketCont rol ( ) ; 
atp_server->Initialize (distrib, db, NULL); 

CServerlDlg dig (rep, atp_server) ; 
m_pMainWnd = &dlg; 
int nResponse = dig . DoModal ( ) ; 
if (nResponse == IDOK) 

^ // TODO: Place code here to handle when the dialog is 
// dismissed with OK 

else if (nResponse == IDCANCEL) 

^ // TODO: Place code here to handle when the dialog is 
// dismissed with Cancel 

} 



// Since the dialog has been cloi 



sed, return FALSE so that we exit the 
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// application, rather than start the application's message pump. 

delete atp_server; 

delete rep; 

delete distrib; 

de 1 e t e db ,- 

return FALSE; 



int WriteErrorLog (char const * , char const *) { 
return ERROR_SUCCESS ; 

} 

ttifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: Main Server 

$Workfile: Serverl . cpp $ 

SAuthor : Ttonchev $ 

$Revision: 7 $ 

$Date= 1/30/37 12 : 55p $ 

$Modtime: 1/30/97 12 -. 54p $ 

$History: Serverl. cpp $ 

* ***************** Version 7 ***************** 

* User: Ttonchev Date: 1/30/97 Time: 12:55p 

* Updated in $/atp/ServerApp 

- added a #include for DistribServer (was forgotten; file could 

* compile) 

* ***************** version 6 ***************** 

* User: Jrward Date: 1/27/97 Time: 12 : 05p 

* Updated in $ /atp/ ServerApp 

* Added VSS History stuff. 
#endif // SOURCE_CONTROL_3LOCK 
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// serverl.h : main header file for the SERVER1 application 
// 

* i£n ^L« A ""iu5S-s td a r *. h - before including .hi. file for PCH 

tfendif 

^include "resource. h" // main symbols 

///////////////////////////////////// //////////////////////////////////////// 
// CServerlApp: n1aqR 
// See Serverl.cpp for the implementation of this class 

// 

class CServerlApp •- public CWinApp 
{ 

public : 

CServerlApp { ) ; 

// Overrides . . ^ 

// ciasswizard generated virtual function overrides 

/ / { { AFX VI RTUAL (CServerlApp) 

public : 

virtual BOOL. Ini t Instance () ; 
// } } AFX_VIRTUAL~* 

// Implementation 

" tt ^I^™SEii».rcl will add and remove member -notions here. 

// DO NOT EDIT what you see in these blocks of generated code ■ 
/ / } } AFX_MSG 
DECLARE MESSAGE MAP < ) 

} ; 

///////////////////////////////^ //////////////////////////////////////////// 

ttifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client /Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: Main Server 

$Workfile: Serverl.h $ 

$Author: Jrward $ 

$Revision: 4 $ 

$Date: 1/27/97 12:05p $ 

$Modtime: 1/27/97 12 : 04p $ 

$History: Serverl.h $ 

* ***************** Version 4 ***************** 

^-^ n^t-f=>- 1/27/97 Time: 12 : OSp 

* User: Jrward Dace . x/ ^. i / ^ • 

' * Updated in $/atp/ServerApp 

* Added VSS History stuff, 
tfendif // SOURCE_CONTROL_BLOCK 



136 



Having now described a few embodiments of the invention, and 
some modifications and variations thereto, it should be apparent 
to those skilled in the art that the foregoing is merely- 
illustrative and not limiting, having been presented by the way 
of example only. Numerous modifications and other embodiments 
are within the scope of one of ordinary skill in the art and are 
contemplated as falling within the scope of the invention as 
limited only by the appended claims and equivalents thereto. 
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